home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / 60000uprogen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.