home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24b.d64
/
auto-number
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
31 lines
1010 REM*******************************
1020 REM** AUTO FUER C 64 **
1030 REM** VON **
1040 REM** FRANK SIEDEL **
1050 REM** POSENER STR. 18 **
1060 REM** 2945 SANDE **
1070 REM*******************************
1080 :
1090 :
1100 :
1110 :DATA169,11,141,8,3,169,192,141,9,3,96,32,115,0,8,201,95,240,4,40,76,231
1120 :DATA167,32,115,0,201,65,208,245,32,115,0,24,32,107,169,165,20,133,38
1130 :DATA165,21,133,39,32,253,174,24,32,107,169,165,20,133,40,165,21,133,41
1140 :DATA169,129,141,2,3,169,192,141,3,3,169,128,141,138,2,165,39,133,98,165
1150 :DATA38,133,99,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,157
1160 :DATA0,2,32,210,255,232,208,242,32,18,225,201,95,240,30,201,13,240,45
1170 :DATA157,0,2,232,32,98,165,76,134,164,24,165,38,101,40,133,38,165,39,101
1180 :DATA41,133,39,76,75,192,169,131,141,2,3,169,164,141,3,3,169,0,141,138
1190 :DATA2,40,76,116,164,32,118,165,76,134,164
1200 :
1210 :
1220 PRINTCHR$(147)
1230 SU=0
1240 FORI=1TO170
1250 READA
1260 SU=SU+A
1270 POKE49151+I,A
1280 NEXT
1290 IFSU<>17417 THEN PRINT "FEHLER IN DEN DATAZEILEN":END
1300 PRINT"OK":END