home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ910501.ARC / TIMEOUT-SET (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  32 lines
  1. 10 POKE53280,0:POKE53281,0:CLR
  2. 30 PRINT"[147][196][212][202]-[194][194][211] [212]IMEOUT [211]ET-UP"
  3. 40 PRINT"[212]HIS PROGRAM MODIFIES THE [194][194][211] PROGRAM"
  4. 50 PRINT"FILE TO CHANGE THE 3 MINUTE NO-KEY"
  5. 60 PRINT"TIMEOUT."
  6. 70 PRINT"(1541, 1571, 1581, [195][205][196]-[200][196] OR COMPATABLE)"
  7. 80 PRINT"[196]RIVE [194][194][211] FILE IS LOCATED ON: 8[157][157][157]";:INPUTD
  8. 90 OPEN1,D,15:CLOSE1:IFST=0THEN110
  9. 100 PRINT"[196]RIVE NOT PRESENT.":END
  10. 110 PRINT"[205]AKE SURE [194][194][211] PROGRAM DISK IS IN DRIVE"
  11. 120 PRINT"AND PRESS A KEY TO CONTINUE."
  12. 130 POKE198,0:WAIT198,255:GETA$:PRINT"[211]EARCHING FOR [194][194][211] FILE..."
  13. 140 OPEN2,D,2,"$":FORI=1TO127:GET#2,A$,A$:NEXT
  14. 150 IFST>0THENE$="FILE NOT FOUND":GOTO570 
  15. 160 FORJ=1TO8:GET#2,A0$,A1$,A2$,A3$,A4$,A5$,A6$,A$,A$,A$,A$,A$,A$,A$,A$
  16. 170 GET#2,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$:IFJ<8THENGET#2,A$,A$
  17. 180 IFA0$<CHR$(129)ORA3$+A4$+A5$+A6$<>"BBS[160]"THENNEXTJ:GOTO150
  18. 190 CLOSE2:OPEN1,D,15:OPEN2,D,2,"#":T1=ASC(A1$+CHR$(0)):S1=ASC(A2$+CHR$(0))
  19. 200 PRINT#1,"U1 2 0";T1;S1:PRINT#1,"B-P 2 140":GET#2,A$,A$,B$:V=ASC(B$+CHR$(0))
  20. 220 V=INT(V*.071111111+.5):CLOSE2:CLOSE1:IFA$=""THEN240
  21. 230 E$="[197]RROR: [212]HIS PROGRAM DOES NOT SUPPORT    THIS REVISION [194][194][211].":GOTO570 
  22. 240 PRINT"[147][196][212][202]-[194][194][211] [212]IMEOUT [211]ET-UP"
  23. 250 PRINT"[213]SE [+] / [-] TO CHANGE.  [208]RESS [210][197][212][213][210][206]  TO ENTER.":POKE198,0
  24. 260 PRINT"[212]IMEOUT VALUE: "V"[157] MINUTES ":WAIT198,255:GETA$
  25. 280 IFA$<>CHR$(13)THENV=V-(A$="+"ANDV<18)+(A$="-"ANDV>2):GOTO260
  26. 480 V=60*V/4.266666666:PRINT"[147][211]AVING...":OPEN1,D,15,"I0":OPEN2,D,2,"#"
  27. 490 PRINT#1,"U1 2 0";T1;S1:PRINT#1,"B-P 2 142":PRINT#2,CHR$(V);
  28. 500 PRINT#1,"U2: 2 0";T1;S1:E$="DONE":GOTO570
  29. 550 PRINT#1,"U1 2 0";T;S:GET#2,A$:T=ASC(A$+CHR$(0)):GET#2,A$:S=ASC(A$+CHR$(0))
  30. 560 RETURN
  31. 570 CLOSE2:CLOSE1:PRINTE$:END
  32.