home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 July
/
64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64
/
60000uprogen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
380b
|
7 lines
60000 rem 60000uprogen //ua,ua$
60001 print"[147]unterprogrammgenerator":print"welches unterprogramm soll dazugeladen"
60002 forua=1to5:poke631+ua,13:next:input"werden (zn o. name) ";ua$:ifua$=""thenend
60003 poke631,19:poke198,6:ua$=ua$+"*":ifleft$(ua$,1)<>"6"thenua$="?????"+ua$
60004 print"[147]p[207]43,(p[197](45)+256*p[197](46)-2)and255":print"p[207]44,(p[197](45)+256*p[197](46)-2)/256"
60005 print"l[207]"chr$(34)ua$chr$(34)",8":print"p[207]43,1:p[207]44,8":print"r[213]60000":end