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