home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9006a.d64 / 60000uprogen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  380b  |  7 lines
  1. 60000 REM 60000UPROGEN     //UA,UA$
  2. 60001 PRINT"[147]UNTERPROGRAMMGENERATOR":PRINT"WELCHES UNTERPROGRAMM SOLL DAZUGELADEN"
  3. 60002 FORUA=1TO5:POKE631+UA,13:NEXT:INPUT"WERDEN (ZN O. NAME) ";UA$:IFUA$=""THENEND
  4. 60003 POKE631,19:POKE198,6:UA$=UA$+"*":IFLEFT$(UA$,1)<>"6"THENUA$="?????"+UA$
  5. 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"
  6. 60005 PRINT"L[207]"CHR$(34)UA$CHR$(34)",8":PRINT"P[207]43,1:P[207]44,8":PRINT"R[213]60000":END
  7.