start tok64 d64-8kYyzC
10 POKE52,0:POKE53,156:POKE55,0
20 POKE56,156:CLR:PRINT"{clear}arbetar{.*3}"
30 FORj=40000TO40900:READa:POKEj,a
40 b=b+a:NEXTj
50 IFb<>128285THENPRINT"datafel!":STOP
60 SYS40000:PRINT"ram-disk installerad"
70 REMend
80 PRINT"{down*2}{right}sys pd 1991
90 PRINT"{down}{right}save"CHR$(34)"namn"CHR$(34)",2 = spara
100 PRINT"{right}load"CHR$(34)"namn"CHR$(34)",2 = ladda
110 PRINT"{right}load"CHR$(34)"$"CHR$(34)",2{space*4}= inneh]ll
120 END
1000 DATA32,88,156,169,53,141,48,3
1010 DATA169,157,141,49,3,169,108,141
1020 DATA50,3,169,156,141,51,3,96
1030 DATA169,0,168,153,0,160,200,208
1040 DATA250,169,0,141,167,159,169,161
1050 DATA141,168,159,96,165,1,141,151
1060 DATA159,165,186,201,2,240,3,76
1070 DATA237,245,173,167,159,133,253,173
1080 DATA168,159,133,254,165,183,208,3
1090 DATA76,16,247,162,0,201,1,208
1100 DATA6,161,187,201,36,240,241,120
1110 DATA134,1,32,189,157,176,3,32
1120 DATA197,158,162,0,189,1,160,240
1130 DATA12,138,24,105,22,170,201,240
1140 DATA144,242,76,45,157,165,253,157
1150 DATA0,160,165,254,157,1,160,165
1160 DATA193,157,4,160,133,251,165,194
1170 DATA157,5,160,133,252,142,150,159
1180 DATA160,0,177,187,157,6,160,200
1190 DATA232,196,183,208,245,165,193,133
1200 DATA251,165,194,133,252,160,0,177
1210 DATA251,145,253,230,251,208,2,230
1220 DATA252,230,253,208,4,230,254,240
1230 DATA38,165,251,197,174,208,232,165
1240 DATA252,197,175,208,226,174,150,159
1250 DATA165,253,157,2,160,141,167,159
1260 DATA165,254,157,3,160,141,168,159
1270 DATA173,151,159,133,1,24,96,174
1280 DATA150,159,160,21,169,0,157,0
1290 DATA160,232,136,16,249,173,151,159
1300 DATA133,1,76,251,246,133,147,165
1310 DATA186,201,2,240,5,165,147,76
1320 DATA165,244,165,1,141,151,159,120
1330 DATA162,0,134,1,165,183,208,8
1340 DATA173,151,159,133,1,76,16,247
1350 DATA201,1,208,9,161,187,201,36
1360 DATA208,3,76,234,157,32,189,157
1370 DATA144,8,173,151,159,133,1,76
1380 DATA4,247,165,43,133,251,165,44
1390 DATA133,252,165,185,240,10,189,4
1400 DATA160,133,251,189,5,160,133,252
1410 DATA189,0,160,133,253,189,1,160
1420 DATA133,254,160,0,177,253,145,251
1430 DATA230,251,208,2,230,252,230,253
1440 DATA208,2,230,254,165,253,221,2
1450 DATA160,208,233,165,254,221,3,160
1460 DATA208,226,166,251,164,252,173,151
1470 DATA159,133,1,24,96,162,0,142
1480 DATA152,159,160,0,189,6,160,209
1490 DATA187,208,16,232,200,196,183,208
1500 DATA243,189,6,160,208,5,174,152
1510 DATA159,24,96,173,152,159,24,105
1520 DATA22,141,152,159,170,201,240,144
1530 DATA217,96,169,54,133,1,169,0
1540 DATA133,251,169,160,133,252,160,0
1550 DATA177,251,141,153,159,200,177,251
1560 DATA141,154,159,200,177,251,141,155
1570 DATA159,200,177,251,141,156,159,200
1580 DATA56,140,185,159,173,155,159,237
1590 DATA153,159,141,153,159,173,156,159
1600 DATA237,154,159,141,154,159,162,4
1610 DATA160,255,56,200,173,153,159,253
1620 DATA157,159,141,153,159,173,154,159
1630 DATA253,162,159,141,154,159,176,235
1640 DATA173,153,159,125,157,159,141,153
1650 DATA159,173,154,159,125,162,159,141
1660 DATA154,159,152,9,48,32,210,255
1670 DATA202,16,205,169,32,32,210,255
1680 DATA32,210,255,172,185,159,169,36
1690 DATA32,210,255,177,251,72,200,177
1700 DATA251,32,173,158,200,104,32,173
1710 DATA158,169,32,32,210,255,32,210
1720 DATA255,162,15,177,251,32,210,255
1730 DATA200,202,16,247,169,13,32,210
1740 DATA255,160,0,24,165,251,24,105
1750 DATA22,133,251,201,240,176,3,76
1760 DATA248,157,173,151,159,133,1,166
1770 DATA45,164,46,24,96,72,41,240
1780 DATA74,74,74,74,170,189,169,159
1790 DATA32,210,255,104,41,15,170,189
1800 DATA169,159,76,210,255,142,150,159
1810 DATA189,2,160,56,253,0,160,141
1820 DATA153,159,189,3,160,253,1,160
1830 DATA141,154,159,189,0,160,133,251
1840 DATA189,1,160,133,252,189,2,160
1850 DATA133,253,189,3,160,133,254,160
1860 DATA0,189,23,160,208,3,76,127
1870 DATA159,177,253,145,251,230,251,208
1880 DATA2,230,252,230,253,208,2,230
1890 DATA254,165,253,205,167,159,208,233
1900 DATA165,254,205,168,159,208,226,165
1910 DATA251,141,167,159,165,252,141,168
1920 DATA159,174,150,159,182,22,160,157
1930 DATA0,160,232,224,230,208,245,162
1940 DATA220,169,0,157,0,160,232,208
1950 DATA250,174,150,159,189,1,160,240
1960 DATA51,56,189,0,160,237,153,159
1970 DATA157,0,160,189,1,160,237,154
1980 DATA159,157,1,160,56,189,2,160
1990 DATA237,153,159,157,2,160,189,3
2000 DATA160,237,154,159,157,3,160,173
2010 DATA150,159,24,105,22,141,150,159
2020 DATA201,240,144,197,173,167,159,133
2030 DATA253,173,168,159,133,254,96,189
2040 DATA0,160,141,167,159,189,1,160
2050 DATA141,168,159,169,0,157,0,160
2060 DATA232,208,250,76,116,159,0,0
2070 DATA0,0,0,0,0,1,10,100
2080 DATA232,16,0,0,0,3,39,0
2090 DATA0,48,49,50,51,52,53,54
2100 DATA55,56,57,65,66,67,68,69
2110 DATA70,0,4,179,210,179,56,255
2120 DATA64,179,64,187,64
stop tok64
(bastext 1.0)