Docker Things and Re-rg

Added Docker Files, .. Reorganised files in /App

Dockerfile

@@ -0,0 +1,17 @@
+FROM ubuntu:16.04
+WORKDIR /app
+ARG QB64_VERSION=1.1-20170120.51
+ENV QB64_VERSION=$QB64_VERSION
+ARG QB64_BUILD=2017_02_09__02_14_38
+ENV QB64_BUILD=$QB64_BUILD
+ENV DEBIAN_FRONTEND noninteractive
+ENV USER root
+
+ADD http://www.qb64.net/release/official/$QB64_BUILD-$QB64_VERSION/windows/qb64-$QB64_VERSION-win.zip /
+COPY dosbox.conf $HOME/.dosboxrc
+
+RUN apt-get update && apt-get install -y \
+    wget unzip dosbox && \ 
+    apt autoremove && rm -r /var/lib/apt/lists/*
+
+CMD ["nohup", "dosbox"]

any.sh

@@ -0,0 +1,6 @@
+#!/bin/bash
+
+xhost +local:docker inspect --format='{{ .Config.Hostname }}' \
+jacknorthrup/qbasic-docker; \
+docker run -it -e DISPLAY=$DISPLAY -v /tmp/.X11-unix:/tmp/.X11-unix \
+jacknorthrup/qbasic-docker /bin/bash

Sans.txt → app/Sans.txt

@@ -1,9 +1,9 @@
-"Alphys : How to ask someone out ?"
-"Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
-"Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
-
-"SANS: Everything in the Universe is else a potato or not"
-"Pap': "
-"Pap: I GUESS!"
-
- 
+"Alphys : How to ask someone out ?"
+"Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
+"Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
+
+"SANS: Everything in the Universe is else a potato or not"
+"Pap': "
+"Pap: I GUESS!"
+
+

fbd.bas → app/fbd.bas

@@ -1,76 +1,76 @@
-'FunnyBones Departement
-
-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.."
-Print
-
-Dim t As String, c As String
-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
-        Case "issue": Print "Go to github.com/EvrestRGB/FBD/issues"
-        Case "puns": Shell "max20_puns.exe"
-        Case "sans": Shell "max20_sans.exe"
-        Case "ver": Print "revision: "; revision: Print ""
-        Case "conduct": Shell "CODE_OF_CONDUCT.md"
-        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":
-            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"
-            Print "ISSUE - display issue methods"
-            Print "CONDUCT - Displays code of conduct"
-            Print
-        Case Else
-            Print "Bad command. Running files not implemented yet.": Print
-    End Select
-Loop
-System
-
+'FunnyBones Departement
+
+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.."
+Print
+
+Dim t As String, c As String
+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
+        Case "issue": Print "Go to github.com/EvrestRGB/FBD/issues"
+        Case "puns": Shell "max20_puns.exe"
+        Case "sans": Shell "max20_sans.exe"
+        Case "ver": Print "revision: "; revision: Print ""
+        Case "conduct": Shell "CODE_OF_CONDUCT.md"
+        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":
+            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"
+            Print "ISSUE - display issue methods"
+            Print "CONDUCT - Displays code of conduct"
+            Print
+        Case Else
+            Print "Bad command. Running files not implemented yet.": Print
+    End Select
+Loop
+System
+

fbdEditor.bas → app/fbdEditor.bas

@@ -1,29 +1,29 @@
-'FBD 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
-Write #1, "Alphys : How to ask someone out ?"
-Write #1, "Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
-Write #1, "Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
-Close #1
-
-'Puns
-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
-
-'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
-
-
+'FBD 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
+Write #1, "Alphys : How to ask someone out ?"
+Write #1, "Mtt Ex : Roses are red, Violets are blue, my bed has places for two"
+Write #1, "Sans : Twinkle Twinkle Little Star, We can Do it in the Car"
+Close #1
+
+'Puns
+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
+
+'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
+
+