s.bsc

10 REM ---- "S" TO PREPARE THE C64 ----
20 REM --- WRITTEN BY GREG NACU 2022 --
30 REM --------------------------------
40 PRINTCHR$(14):REM UPPER/LOWER
50 POKE53280,3:REM BORDER CYAN
60 POKE53281,1:REM BKGRND WHITE
70 POKE646,14:REM  TEXT LT BLUE
75 REM --- DEFINE F-KEYS --------------
80 F1$="@$:*"+CHR$(13)+CHR$(0)
81 F2$="^1//:C64OS"+CHR$(13)+CHR$(0)
82 F3$="\1//:TMP"+CHR$(13)+CHR$(0)
83 F4$="@T"+CHR$(0)
84 F5$="^1//:NOVATEXT*"+CHR$(13)+CHR$(0)
85 F6$="^1//:S"+CHR$(13)+CHR$(0)
86 F7$="\1//:MONITORC"+CHR$(13)+CHR$(0)
87 F8$="@  "+CHR$(34)+"S:"+CHR$(0)
90 F$=F1$+F3$+F5$+F7$+F2$+F4$+F6$+F8$
95 BUF=820
100 FOR I=1TOLEN(F$)
110 POKE(BUF+I-1),ASC(MID$(F$,I,1)):NEXTI
115 POKE176,BUF-(256*(INT(BUF/256)))
120 POKE177,INT(BUF/256):POKE155,0
130 REM --- CONFIGURE DRIVES ----------
140 @#8:REM CURRENT DEV 8
150 @X10:REM TARGET DEV 10
160 @"CP1":REM CURRENT PART 1
170 REM @"CD//":REM CURRENT DIR //
175 OPEN15,8,15:CLOSE15:REM CLOSE FILES
180 REM --- READY MESSAGE -------------
190 POKE650,128:REM REPEAT ALL KEYS
200 PRINT"ÒEADY FOR WORK."
210 @"T-RA":@:PRINT""
215 GOSUB 300:PRINT"";
220 NEW
299 END:REM ---- HELP DISPLAY ---------
300 PRINT"Æ1: ÄIRECTORY     Æ2: Ã64 ÏÓ"
310 PRINT"Æ3: ÔURBOÍACROÐRO Æ4: ÔEXT ÆILE"
320 PRINT"Æ5: ÎOVAÔEXT      Æ6: ÒESET"
330 PRINT"Æ7: ÍONITOR       Æ8: ÓCRATCH ÆILE"
340 RETURN
4999 END:REM ---- QUICK SAVE ----------
5000 DV=PEEK(186):SAVE"@:S",DV