start tok64 d64-MDfhnX
1 REM ***************************
2 REM *  tronsoft presenterar:  *
3 REM * mcsaver av jonaz hulten *
4 REM ***************************
5 REM obs!!! rutinen kan flyttas!
6 INPUT"var ska mcsaver pokas? 49152{left*7}";ad:i=ad:q=.
7 READa:IFa<>-1THENq=q+a:POKEi,a:i=i+1:GOTO7
8 IFq<>13642THENPRINT"datafel!":END
9 PRINT"mcsaver startas med:
10 PRINT"sys"ad"{left}"CHR$(34)"filnamn"CHR$(34)",device,start,slut+1
11 :
12 DATA120,173,17,208,133,2,32,158,173,32,166,182,133,251,134,252
13 DATA132,253,32,241,183,169,1,168,32,186,255,165,251,166,252,164
14 DATA253,32,189,255,32,253,174,32,138,173,32,247,183,133,252,132
15 DATA251,32,253,174,32,138,173,32,247,183,133,254,152,170,164,254
16 DATA169,54,133,1,165,186,201,8,208,5,169,11,141,17,208,169
17 DATA251,32,216,255,169,55,133,1,165,2,141,17,208,88,96,-1
stop tok64
(bastext 1.0)