home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 June
/
64er_Magazin_85-06_1985_Markt__Technik_de.d64
/
mps802_data
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
47 lines
10 reada :i=i+1:s=s+a:printi,a,s:ifa =-1 then 30
20 goto10
30 if s<>79150 then print"fehler in datas":end
40 if i<>668 then print"anzahl datas falsch":end
50 print"ok!"
60 lb=00:hb=13
70 open2,8,2,"hi-print mps 802,p,w"
80 print#2,chr$(lb);chr$(13)
90 restore
100 reada$:ifa$="-1" then print"speichern ok":goto 120
110 goto 100
120 close2:end
32000 data133,91,169,100,162,4,160,0,32,8,14,169,106,162,4,160,6,32,8,14,162
32001 data106,32,201,255,169,20,32,210,255,162,100,32,201,255,169,141,32,210
32002 data255,169,105,162,4,160,5,32,8,14,165,91,10,144,3,76,134,14,165,91,41
32003 data7,162,2,32,19,14,169,20,133,251,165,91,41,192,240,16,165,91,74,74,74
32004 data41,7,162,0,32,19,14,169,0,133,251,169,0,141,61,3,32,45,14,32,102,14
32005 data240,41,162,105,32,201,255,162,0,189,62,3,32,210,255,232,224,8,208,245
32006 data169,13,32,210,255,162,100,32,201,255,32,116,14,169,254,32,210,255,169
32007 data141,32,210,255,24,165,94,105,8,133,94,144,2,230,95,32,225,255,240,63
32008 data238,61,3,173,61,3,201,40,208,181,165,91,41,192,240,24,165,94,166,92
32009 data133,92,134,94,165,95,166,93,133,93,134,95,165,251,73,40,133,251,208
32010 data146,162,100,32,201,255,169,13,32,210,255,238,60,3,173,60,3,201,25,240
32011 data3,76,92,13,169,105,32,195,255,162,106,32,201,255,169,36,32,210,255
32012 data162,100,32,201,255,169,141,32,210,255,169,106,32,195,255,32,204,255
32013 data169,100,32,195,255,96,32,186,255,169,0,32,189,255
76,192,255,160,6
32014 data217,150,31,240,3,136,208,248,169,0,149,92,141,60,3,24,105,32,136,16
32015 data251,149,93,96,120,169,52,133,1,162,0,138,157,62,3,232,224,8,208,248
32016 data169,128,133,96,160,0,177,94,162,0,10,144,10,72,189,62,3,5,96,157,62
32017 data3,104,232,224,8,208,238,70,96,200,192,8,208,227,169,55,133,1,88,96
32018 data162,0,138,221,62,3,208,5,232,224,8,208,246,96,24,165,251,109,61,3,170
32019 data240,8,169,32,32,210,255,202,208,250,96,165,91,41,7,162,0,32,19,14,133
32020 data95,169,0,133,94,133,251,133,89,133,90,169,192,149,252,74,74,232,224
32021 data4,208,247,169,0,141,61,3,32,45,14,165,90,240,17,162,0,189,62,3,10,10
32022 data10,10,157,62,3,232,224,8,208,241,32,98,15,76,214,14,162,0,189,74,3
32023 data157,70,3,232,224,4,208,245,32,141,15,240,47,162,105,32,201,255,162
32024 data0,189,70,3,32,210,255,189,70,3,32,210,255,232,224,4,208,239,169,13
32025 data32,210,255,162,100,32,201,255,32,116,14,169,254,32,210,255,169,141
32026 data32,210,255,32,225,255,208,3,76,225,13,238,61,3,165,89,73,8,133,89,208
32027 data172,24,165,94,105,8,133,94,144,2,230,95,173,61,3,201,80,240,3,76,171
32028 data14,162,100,32,201,255,169,13,32,210,255,165,90,73,25,133,90,165,94
32029 data166,92,133,92,134,94,165,95,166,93,133,93,134,95,238,60,3,173,60,3
32030 data201,50,240,3,76,166,14,76,225,13,169,0,170,168,157,70,3,232,224,8,208
32031 data248,170,185,62,3,10,144,11,72,24,185,70,3,117,252,153,70,3,104,232
32032 data224,4,208,237,162,0,200,192,8,208,227,96,162,0,138,221,70,3,208,5,232
32033 data224,4,208,246,96,-1