32750 RESTORE 32760:CLR 32755 DIM X$(40):POKE 764,32:FOR X=1 TO 19:READ Y:X$(X,X)=CHR$(Y):NEXT X:X=USR(ADR(X$)) 32760 DATA 162,253,154,169,183,72,169,84,72,169,4,32,182,187,169,255,76,4,187
Back to previous page
PROGRAM LISTING: 84-11/CASSBOOT.LST PROGRAM LISTING: 84-11/CASSBOOT.LST
32750 RESTORE 32760:CLR 32755 DIM X$(40):POKE 764,32:FOR X=1 TO 19:READ Y:X$(X,X)=CHR$(Y):NEXT X:X=USR(ADR(X$)) 32760 DATA 162,253,154,169,183,72,169,84,72,169,4,32,182,187,169,255,76,4,187 Back to previous page |