1 GOTO 230
2 REM "DEVELOPER: MATTEO TREVISAN, HACKFEST 2020" 
5 HOME
10 FOR Y = 1 TO 5:PRINT "":NEXT Y
51 FOR B = 1 TO 3000
53 NEXT B
54 PRINT "               VISUAL OS":FOR Z = 1 TO 20:PRINT "":NEXT Z:PRINT "                          HACKFEST 2020"
55 FOR B = 1 TO 3000
56 NEXT B
70 HOME
80 FOR J = 1 TO 5:PRINT "":NEXT J
140 FOR A = 1 TO 3000
155 NEXT A
156 PRINT "            LOADING OS...."
157 FOR A = 1 TO 3000
158 NEXT A
160 HOME
162 PRINT "OCCUPIED MEMORY     VISUAL OS"
170 PRINT FRE(0)
171 PRINT "----------------------------------------"
172 PRINT " COMMANDS: NAME OF FOLDER (ADD-SHOW FILE IN CMD LINE),  FILE CONTENTS (ADD FILE)
173 PRINT " BK (BACK TO CMD LINE), RST (RESET),     DELF (DEL FOLDERS), MEM, BASIC."
174 PRINT "----------------------------------------" 
180 PRINT ""
185 PRINT "ADD FOLDER NAME 1 TO 10 OR PRESS RETURN SCROLL THE REMAINING LINES": INPUT ">";A$ : INPUT ">";D$ : INPUT ">";E$ : INPUT ">";F$ : INPUT ">";G$ : INPUT ">";H$  : INPUT ">";I$ : INPUT ">";L$ : INPUT ">";M$ : INPUT ">";N$ 
190 PRINT "ADD FILE MAX 250 CHARACTERS MAXIMUM 10 LINES PER FOLDER": INPUT ">";B$ : INPUT ">";Z$ : INPUT ">";O$ : INPUT ">";P$ : INPUT ">";Q$ : INPUT ">";R$ : INPUT ">";S$ : INPUT ">";T$ : INPUT ">";U$ : INPUT ">";V$ 
195 PRINT "COMMAND LINE PROMPT:"
200 INPUT ">";C$
205 IF C$ = A$ THEN PRINT B$ : GOTO 200
206 IF C$ = D$ THEN PRINT Z$ : GOTO 200
207 IF C$ = E$ THEN PRINT O$ : GOTO 200
208 IF C$ = F$ THEN PRINT P$ : GOTO 200
209 IF C$ = G$ THEN PRINT Q$ : GOTO 200
210 IF C$ = H$ THEN PRINT R$ : GOTO 200
211 IF C$ = I$ THEN PRINT S$ : GOTO 200
212 IF C$ = L$ THEN PRINT T$ : GOTO 200
213 IF C$ = M$ THEN PRINT U$ : GOTO 200
214 IF C$ = N$ THEN PRINT V$ : GOTO 200
215 IF C$ = "BK" THEN PRINT CHR$(7): GOTO 195
216 IF C$ = "DELF" THEN PRINT CHR$(7): GOTO 185
217 IF C$ = "RST" THEN PRINT CHR$(7): GOTO 160: CLEAR
218 IF C$ = "MEM" THEN PRINT CHR$(7): PRINT FRE(0): GOTO 195
219 IF C$ = "BASIC" THEN PRINT CHR$(7): GOTO 10000
220 GOTO 200
230 FOR A = 0 TO 20
240 POKE 49214,A
250 POKE 49215,0
260 POKE 49212,79
270 POKE 49213,1
280 NEXT A
290 FOR A = 128 TO 150
300 POKE 49214,A
310 POKE 49215,0
320 POKE 49212,79
330 POKE 49213,255
340 NEXT A
350 REGGY = 225
360 WENLAV = 2
370 GOSUB 1000
380 REGGY = 255
390 WENLAV = 2
400 GOSUB 1000
410 REGGY = 2
420 WENLAV = 255
430 GOSUB 1000
450 REGGY = 2
460 WENLAV = 255
470 GOSUB 1000
480 REGGY = 2
490 WENLAV = 255
500 GOSUB 1000
510 REGGY = 255
520 WENLAV = 2
530 GOSUB 1000
560 END
1000 POKE 49214,REGGY
1010 POKE 49215,0
1020 POKE 49212,15
1030 POKE 49213,WENLAV
1050 GOTO 5
10000 END