home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 93
/
64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64
/
bitstop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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