home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh93b.d64
/
bitstop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
601b
|
21 lines
0 REM *****************************
1 REM ** +++ ANHALTER +++ **
2 REM **-------------------------**
3 REM ** WRITTEN BY GEORG KRAMER **
8 REM *****************************
9 :
10 PRINT"[147] ++ BIT-STOP ++":PRINT
15 INPUT" STARTADRESSE :[146] 49152[157][157][157][157][157][157][157]";S
20 IFS<0ORS>65535THEN10
30 FORI=0TO33:READA:X=X+A
40 POKES+I,A:NEXT
50 IFX<>4231THENPRINT"DATA-FEHLER !":END
60 POKES+7,(S+13)/256
70 POKES+2,(S+13)-PEEK(S+7)*256
80 SYS(S)
90 PRINT:PRINT" PROGRAMM ANHALTEN => F1"
95 END
100 REM *** MASCHINENPROGRAMM ***
101 DATA120,169,13,141,20,3,169,192,141,21,3,88,96,165,203,201,4,240,3,76
102 DATA49,234,32,135,234,165,203,201,64,240,247,76,49,234