home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_A.d64 / basicloadermaker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  764b  |  16 lines
  1. 0 poke53281,0:poke53280,9:poke768,145:print"[147][158]  [194]asicloadermaker [214]1 by [208]c-[211]oftware":goto4
  2. 1 poke198,0:wait198,1:getz$:ifz$=chr$(20)thena$=left$(a$,len(a$)-1):printz$;:goto1
  3. 2 z=100:po=5:ifz$=chr$(13)thenprint:return
  4. 3 a$=a$+z$:printz$;:goto1
  5. 4 print" [211]tart >";:gosub1:b$=a$:a$="":print" [197]nd   >";:gosub1:a=val(b$):e=val(a$):s=a
  6. 5 a$=str$(z)+"d[193]":fori=0to17:a$=a$+str$(peek(a+i))+",":next:z=z+1:a=a+18
  7. 6 z$="":n$="":fori=1tolen(a$)-1:m$=mid$(a$,i,1):ifm$=" "thennext
  8. 7 c$=c$+m$:next:a$=c$:c$="":b$="":ifa>=ethena$=a$+",-1":po=11
  9. 8 b$="a="+str$(a)+":e="+str$(e)+":z="+str$(z)+":po="+str$(po)+":s="+str$(s)
  10. 9 b$=b$+":g[207]"+str$(po)
  11. 10 print"[147]"a$:printb$"":poke631,13:poke632,13:poke198,2:end
  12. 11 a$="":a$=str$(z)+"r[197]a:ifa<>-1t[200]p[207]"+str$(s)+"+b,a:b=b+1:g[207]"+str$(z):b$="z="
  13. 12 b$=b$+str$(z)+":s="+str$(s)+":g[207]14":print"[147]"a$:printb$"":poke631,13
  14. 13 poke632,13:poke198,2:end
  15. 14 print"[147]"q:print"q="q"+1:g[207]14":poke631,13:poke632,13:poke198,2:end
  16.