Notes

Disk info for Serpentine_and_Variations.dsk:

File Name: riag_011_Serpentine_and_Variations/Serpentine_and_Variations.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 57600
Used Space (bytes): 85760
Physical Size (KB): 140
Free Space (KB): 56
Used Space (KB): 83
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 225
Used Sectors: 335
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Serpentine_and_Variations.dsk:

riag_011_Serpentine_and_Variations/Serpentine_and_Variations.dsk DISK VOLUME #254
A 004 HELLO
B 039 SERPENTINE
S 187 SERPENTINE2
B 039 SERPENTINE FOREVER
A 002 SURP HELLO
DOS 3.3 format; 57,600 bytes free; 85,760 bytes used.

Text found in Serpentine_and_Variations.dsk/HELLO.bas:

1000 TEXT : POKE 44596,96: HOME :D$ = CHR$(4): PRINT D$;"CATALOG":B = PEEK(37) -2: IF B >22 THEN B = 22
1010 T = 0:CH = 4: FOR CV = 0 TO 23: GOSUB 1140: IF C < >160 THEN POKE P -1,219: POKE P,T +193: POKE P +1,221:T = T +1:S = CV
1020 NEXT CV: VTAB 24:A$ = "TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5...."
1030 B$ = "RUN": HTAB 1: PRINT LEFT$(A$,39);:A$ = MID$ (A$,2) + LEFT$(A$,1):K = PEEK( -16384): IF K <128 THEN FOR K = 1 TO 75: NEXT K:K = FRE(0): GOTO 1030
1040 POKE -16368,0:K = K -176: IF K <1 OR K >5 THEN 1110
1050 HTAB 1: CALL -868: IF K = 5 THEN END
1060 PRINT "PRESS 'LETTER' YOU WISH TO ";: IF K = 1 THEN B$ = "LOAD"
1070 IF K = 2 THEN B$ = "LOCK"
1080 IF K = 3 THEN B$ = "UNLOCK"
1090 IF K = 4 THEN B$ = "DELETE": FLASH
1100 PRINT B$;: CALL -198: NORMAL : GET K$:K = ASC(K$) -48
1110 IF K <17 OR K >T +16 THEN 1030
1120 CH = 1:CV = S -T +K -16: GOSUB 1140: IF C = 194 AND (B$ = "RUN" OR B$ = "LOAD") THEN B$ = "B" +B$
1130 FOR CH = 6 TO 39: GOSUB 1140:B$ = B$ + CHR$(C): NEXT CH: HTAB 1: CALL -868: PRINT B$: PRINT D$;B$: GOTO 1000
1140 C1 = INT(CV/8):C2 = CV -C1 *8:P = 1024 +128 *C2 +40 *C1 +CH:C = PEEK(P): RETURN

Text found in Serpentine_and_Variations.dsk/SURP HELLO.bas:

10 PRINT "CATALOG"
20 PRINT "MONC"
30 PRINT "BRUN SERPENTINE"