home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / BATCHSCRATCH.NAV (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  773b  |  25 lines
  1. 2000 POKE43,PEEK(30983):POKE44,PEEK(30984):POKE45,PEEK(30985):POKE46,PEEK(30987)
  2. 2070 IFD5=0THEND5=D2
  3. 2071 IFD3=9THEN2185
  4. 2072 OL=1:O1=1:ONFMGOTO2080,2135,2135
  5. 2080 R=5:C=29:GOSUB115:POKECH,C7:PRINT" [211]CRATCH ":POKECH,C1
  6. 2083 CLOSE15:IFDC=1THENGOSUB1195:EX=0
  7. 2084 GOSUB2125:FM=1:GOTO300
  8. 2115 IFFM=2THEN2135
  9. 2120 GOTO2127
  10. 2125 FORT=0TOD5:N$(T)=" "+TM$(T):TY$(T)=B1$(T):NEXT:FS=D2+1:N$(FS)="*[211]ELECT [193]LL"
  11. 2126 TY$(FS)="":DM=D3:RETURN
  12. 2127 I$="*":IFF=FSANDLEFT$(N$(1),1)="*"THENI$=" "
  13. 2128 IFF=FSTHENFORT=1TOD5:N$(T)=I$+MID$(N$(T),2):NEXT:GOSUB480:GOTO305
  14. 2130 IFLEFT$(N$(F),1)="*"THENN$(F)=" "+MID$(N$(F),2):GOSUB480:GOTO305
  15. 2132 N$(F)="*"+MID$(N$(F),2):GOSUB480:GOTO305
  16. 2135 OPEN15,DV,15:POKEV+21,0:FORT=1TOD5:IFLEFT$(N$(T),1)<>"*"THEN2139
  17. 2136 WF=1:N$=MID$(N$(T),2):IFDM=3THENN$=ID$+N$
  18. 2137 IFDM=7THENPRINT#15,"RD:"+N$:GOTO2139
  19. 2138 PRINT#15,"S0:"+N$:GOSUB200
  20. 2139 NEXT
  21. 2185 GOSUB1185:R=5:C=29:GOSUB115:POKECH,C2:PRINT" [211]CRATCH ":POKECH,C1
  22. 2195 EX=0:D5=0:LL=0:O1=0:FM=0:E2=0
  23. 2197 IFWFTHENWF=0:GOTO465
  24. 2198 GOTO300
  25.