home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
90xx
/
9005a.d64
/
60000uprogen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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