User`s manual

APPENDIX C: Demonstration Disk Programs
1. D/R
4 OPEN2.. 8,15
5 PRINT":1":GOTO 1121121121121
1101 OPENL8..e, "$101"
2121 GETlll,A$,B$
313 GETIIL A$, B$
413 GETIIL A$, B$
5101 C=!!I
60 IF A$()"" THEN C=ASC(A$)
713 IF B$()"" THEN C=C+ASC(B$)i!!256
8101 PRINT" ~"MID$(STR$(C), 2); TAB(3); "~";
913 GETlll,B$:IF ST(>e THEN 11211313
lee IF B$(>CHR$(34) THEN 9121
11121 GETlll,B$:IF B$(>CHR$(34)THEN PRINTB$; : GOT011121
12121 GETlll,B$:IF B$=CHR$(32) THEN 12121
13121 PRINT TAB<l8); : C$=""
14121C$=C$+B$:GETlIl,B$: IF B$(>"" THEN 14121
15121 PRINT"~"LEFT$(C$,3)
16121 GET T$: IF T$O"" THEN GOSUB 21210121
17121 IF ST~12I THEN 3121
1121121121PRINT" BLOCKS FREE"
11211121 CLOSE1:GOTO 1121121121121
213121121IF T$="Q" THEN.CLOSE1:END
21211121GET T$: IF T$="" THEN 212113121
2132121 RETURN
413121121REM DISK COMMAND
4131121 C$="":PRINT")";
412111 GETB$: I FB$="" THEN412111
412112 PRINTB$; :IF B$=CHR$(13) THEN 41212121
412113 C$=C$+B$:OOTO 412111
41212121PRHITII2, C$
5121121121PRINT"~".:
51211121GETII2,A$:PRINTA$; :IF A$(>CHR$(13)GOT051211121
51212121PRINT"~"
11211210121PRINT "D-DIRECTOR'T"
11211211121PRINT ")-DISK COMMAND"
10020 PRINT "Q-QUIT PROGRAM"
101213121PRINT "S-DISK STATUS "
11211121121GETA$:IFA$=""THENl1211121121
102121121IF A$="D" THEN 1121
112131210IF A$="." OR A$=")" OR A$=">" THEN 4121121121
112131121IF A$="Q" THEN END
112132121IF A$="S" THEN 5121121121
1121999 GOTO 11211121121
2. VIEW SAM
1121121REM ************.*.*.*..*.*...
10.1 REM. VI~W BAM FOR VIC & 64 DISK *
102 REM ,..........................
1121:5OPEN15,S,15
11121 PRINTII15,"II2I":NU$="N/A N/A N/A N/A N/A":Z4=1
12121 OPEN2,S,2,"II"
13121 'T$~" j:!)roll)lnal!lwt~tljl)jll~l)q'a.aIQ)'OO)II~J"
14121 X$=" "
15121 DEF FNS(Z) = 2f(S-INT(S/S)i!!S) AND (SB(INT(S/S»)
47