Globally Added Images

Dev Notes.txt

@@ -0,0 +1,6 @@
+'To-Do list :
+
+'Faire un syst�me d'envoi de message local � l'aide d'Ethernet.
+'Pouvoir envoyer des fichiers � l'aide de FTP
+'Le gestionnaire pourra LIRE et T�L�CHARGER des fichiers mais pas modifier ou autres.
+'Faire un syst�me qui d�tecte clic droit ou gauche pour PASTE.

fbd.bas

@@ -1,12 +1,16 @@
 'FunnyBones Departement
 
-$ExeIcon:'C:\Dev\qb64_dev\FBD\BEEp.ico'
+Rem Init Code
+
+$ExeIcon:'./pngkit.ico'
 Const bio$ = "FunnyBones Broadcast, 2015"
 _Title bio$
 
 Const initial = "1996 10 12"
 Const revision = "2023 11 15"
 
+Rem Main Part, contains main code
+
 Cls
 Print bio$
 Print "Undertale Jokes, that's all. Except for some Game Dev.."
@@ -17,10 +21,24 @@ Dim i As Integer
 
 Do
     Print ">";
+    If _MouseButton(1) = True Then
+        'Code Logic
+    End If
     Line Input t
     i = InStr(t, " ")
     If i Then c = Left$(t, i - 1) Else c = t
     Select Case LCase$(c)
+        Case "fuck": Print "Pap': Kids are watching !"
+        Case "bastards": Print "Pap': Kids are watching !"
+        Case "dickhead": Print "Pap': Kids are watching !"
+        Case "bastard": Print "Pap': Kids are watching !"
+        Case "jerk": Print "Like you and Chara"
+        Case "trash": Print "Like you, and Alphys"
+        Case "Asshole": Print "Like you"
+        Case "bitch": Print "Stop."
+        Case "Gaster": Exit Do
+        Case "Woshua": Print "Clean Name"
+        Case "echo": Print Mid$(t, i + 1)
         Case "hnd": Shell "Software Enhaced Help.hnd"
         Case "exit": Exit Do
         Case "cls": Cls
@@ -29,15 +47,21 @@ Do
         Case "sans": Shell "max20_sans.exe"
         Case "ver": Print "revision: "; revision: Print ""
         Case "conduct": Shell "CODE_OF_CONDUCT.md"
-        Case "time": Print time$
-        Case "duck"
+        Case "links": Shell "links.txt"
+        Case "ftp": Shell "ftp.exe"
+        Case "time": Print Time$
+        Case "links":
+        Case "duck":
             Print "I see.."
             Shell "updated_dack.exe"
-        Case "help"
+        Case "help":
             Print "EXIT - exit the shell"
             Print "CLS - clear the screen"
+            Print "ECHO - displays written message in Console"
+            Print "FTP - opens FTP mode"
             Print "PUNS - display puns"
             Print "SANS - display sans and toriel jokes"
+            Print "LINKS - display some links"
             Print "VER - display version"
             Print "HELP - display this help"
             Print "HND - advanced software help"

fbdEditor.bas

@@ -1,6 +1,9 @@
 'FBD Editor
 
-_Title "FBD Broadcast Textual Editor"
+$ExeIcon:'./blocNotes.ico'
+Const bio$ = "Funny Bones BBS editor"
+_Title bio$
+
 
 'Sans
 Open "C:\Dev\qb64_dev\FBD\Sans.txt" For Output As #1
@@ -10,17 +13,17 @@ Write #1, "Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
 Close #1
 
 'Puns
-Open "C:\Dev\qb64_dev\FBD\puns.txt" For Output As #2
+Open "./puns.txt" For Output As #2
 Write #2, "Alphys : How to ask someone out ?"
 Write #2, "Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
 Write #2, "Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
 Close #2
 
-'Messages
-Open "C:\Dev\qb64_dev\FBD\messages.txt" For Output As #2
-Write #2, "Alphys : How to ask someone out ?"
-Write #2, "Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
-Write #2, "Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
-Close #2
+'Links
+Open "./links.txt" For Output As #3
+Write #3, "Alphys : How to ask someone out ?"
+Write #3, "Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
+Write #3, "Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
+Close #3
 
 

links.txt

@@ -0,0 +1,5 @@
+https://benchspark.dev - Creator's website
+https://undernet.onion - just a rondom undernet webiste
+https://undertale-network.tumblr.com/ - like okay tumblr
+https://undertale-rp.fandom.com/wiki/Undernet#Main_Use - UnderNet Fandom
+https://undertale.fandom.com/fr/wiki/Accueil - Undertale Fandom

max20_puns.bas

@@ -2,7 +2,7 @@
 
 _Title "FBD Broadcast Reader"
 
-Open ".\puns.txt" For Input As #1
+Open "./puns.txt" For Input As #1
 10
 For x% = 1 To 20
     Line Input #1, line$ ' A way to loop threw until the 1st 20 lines area read in

reader.bm

@@ -0,0 +1,22 @@
+Sub reader
+    '20 lines and more
+
+    _Title "FBD Broadcast Reader"
+
+    Open "./puns.txt" For Input As #1
+    10
+    For x% = 1 To 20
+        Line Input #1, line$ ' A way to loop threw until the 1st 20 lines area read in
+        Print line$
+    Next x%
+
+    Input "Read more or Quit"; responce$
+    If responce$ = "Go On" Then
+        Cls
+        GoTo 10 'starts over and gets the next 20
+    Else
+        Close #1
+        System
+    End If
+
+End Sub