home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNBLITZ.SDA / D3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  38 lines
  1. 30000 POKE827,PEEK(46):POKE826,PEEK(45)
  2. 30001 PRINT"[154]"
  3. 30003 OPEN15,8,15:OPEN8,8,8,"0:SEQUENTIAL":Z$=CHR$(0):CO=0:POKE821,0
  4. 30004 INPUT#15,E,E$,E1,E2:IFE<>0THENPRINTE,E$:CLOSE8:CLOSE15:END
  5. 30005 POKE152,2:PRINT"[147]":GT$="GOTO30005"
  6. 30010 POKE820,CO:SYS887
  7. 30020 QM=PEEK(821):A$=CHR$(PEEK(823)):CO=PEEK(820)
  8. 30025 IFPEEK(822)<>0THENGT$="GOTO42000"
  9. 30030 IFA$="G"THENGOSUB41000
  10. 30040 IFA$<>CHR$(13)THENPRINTA$;:GOTO30010
  11. 30100 IFCO>80THENPRINT"LINE TO LONG--USE ABREV. AND HIT RET.-GOTO30005--"
  12. 30200 PRINT:PRINTGT$:POKE198,3:POKE631,13:POKE632,13:POKE633,133:END
  13. 40010 GET#8,A$:IFA$=""THENA$=Z$
  14. 40015 IFST<>0THENGT$="GOTO42000"
  15. 40020 CO=CO+1:RETURN
  16. 41000 IFQM=1THENRETURN
  17. 41010 GOSUB40010:IFA$=CHR$(13)THENPRINT"G";:RETURN
  18. 41020 IFA$="[207]"THENTP$="G[207]":GOTO41100
  19. 41030 IFA$<>"O"THENPRINT"G";:RETURN
  20. 41035 GOSUB40010
  21. 41040 IFA$<>"[211]"THENPRINT"GO";:RETURN
  22. 41050 TP$="GO[211]"
  23. 41100 N$=""
  24. 41110 GOSUB40010:IF(A$>"/"ANDA$<":")THENN$=N$+A$:GOTO41110
  25. 41120 N=VAL(N$):N1=INT(N/256):N2=N-256*N1
  26. 41130 POKE253,N1:POKE254,N2:SYS873
  27. 41140 M=(PEEK(251)+256*PEEK(252)-40961)/2:M$=STR$(M):M$=RIGHT$(M$,LEN(M$)-1)
  28. 41145 IFM>10000THENPRINT:PRINT"ERROR--LINE# NOT FOUND":STOP
  29. 41150 TP$=TP$+M$:IFA$=","THENTP$=TP$+A$:GOTO41100
  30. 41160 PRINTTP$;:RETURN
  31. 42000 POKE152,2:CLOSE8:CLOSE15
  32. 42010 S=PEEK(46)*256+PEEK(45)-256*PEEK(827)-PEEK(826)+2051
  33. 42020 POKE827,INT(S/256):POKE826,S-256*PEEK(827)
  34. 42030 POKES-3,0:POKES-2,0:POKES-1,0
  35. 42040 PRINT"[147]POKE45,P[197](826):POKE46,P[197](827):CLR[154]"
  36. 42041 PRINT"SAVE PROGRAM TO DISK BEFOR CONTINUING."
  37. 42050 POKE198,1:POKE631,13:END
  38.