home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ910501.ARC / FREQ-SET (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  34 lines
  1. 10 POKE53280,0:POKE53281,0:CLR
  2. 20 PRINT"[147][196][212][202]-[194][194][211] [193][195] [208]OWER [198]REQUENCY [211]ET-UP"
  3. 30 PRINT"[212]HIS PROGRAM MODIFIES THE [194][194][211] PROGRAM"
  4. 40 PRINT"FILE TO WORK AT DIFFERENT [193][195] POWER      FREQUENCIES."
  5. 45 PRINT"([198]OR 1541, 1571, 1581 OR COMPATABLE)"
  6. 50 PRINT"[196]RIVE [194][194][211] FILE IS LOCATED ON: 8[157][157][157]";:INPUTD
  7. 60 OPEN1,D,15:CLOSE1:IFST=0THEN80
  8. 70 PRINT"[196]RIVE NOT PRESENT.":END
  9. 80 PRINT"[205]AKE SURE [194][194][211] PROGRAM DISK IS IN DRIVE"
  10. 90 PRINT"AND PRESS A KEY TO CONTINUE."
  11. 100 POKE198,0:WAIT198,255:GETA$:PRINT"[211]EARCHING FOR [194][194][211] FILE..."
  12. 110 OPEN1,D,15,"M-R[255][255]":GET#1,A$:T=18:S=1:IFA$="[255]"THENT=40:S=3
  13. 120 OPEN2,D,2,"#"
  14. 130 IFT=0THENE$="FILE NOT FOUND":GOTO1000
  15. 140 GOSUB900:FORJ=0TO7:PRINT#1,"B-P"2;J*32+2:GET#2,A$:IFA$<CHR$(128)THEN170
  16. 150 GET#2,A$:T1=ASC(A$+CHR$(0)):GET#2,A$:S1=ASC(A$+CHR$(0))
  17. 160 FORK=1TO4:GET#2,A$:IFA$=MID$("BBS[160]",K,1)THENNEXT:GOTO180
  18. 170 NEXTJ:GOTO130
  19. 180 PRINT#1,"U1 2 0";T1;S1:PRINT#1,"B-P 2 139":GET#2,A$:V=ASC(A$+CHR$(0))
  20. 190 CLOSE2:CLOSE1:IFA$<>" "THEN210
  21. 200 E$="[197]RROR: [212]HIS PROGRAM DOES NOT SUPPORT    THIS REVISION [194][194][211].":GOTO1000
  22. 210 PRINT"[147][196][212][202]-[194][194][211] [198]REQUENCY [205]ODE":PRINT"   0 - [193]UTOMATIC 50/60HZ DETECTION"
  23. 220 PRINT"   1 - [198]ORCE 60HZ MODE":PRINT"   2 - [198]ORCE 50HZ MODE"
  24. 230 PRINT"   3 - [206]O CHANGE OF MODE DURING LOAD":PRINT"[211]ELECT MODE AND PRESS [210][197][212][213][210][206]."
  25. 240 PRINTLEFT$("",V*2+4);"->";:POKE198,0:WAIT198,255:GETA$:PRINT"[157][157]  ";
  26. 250 IFA$>"/"ANDA$<"4"THENV=VAL(A$):GOTO240
  27. 260 IFA$<>CHR$(13)THENV=(3AND(V-(A$="")+(A$="[145]"))):GOTO240
  28. 270 PRINT"[211]AVING...":OPEN1,D,15,"I0":OPEN2,D,2,"#"
  29. 280 PRINT#1,"U1 2 0";T1;S1:PRINT#1,"B-P 2 139":PRINT#2,CHR$(V);
  30. 290 PRINT#1,"U2: 2 0";T1;S1:E$="DONE":GOTO1000
  31. 900 PRINT#1,"U1 2 0";T;S:GET#2,A$:T=ASC(A$+CHR$(0)):GET#2,A$:S=ASC(A$+CHR$(0))
  32. 910 RETURN
  33. 1000 CLOSE2:CLOSE1:PRINTE$:END
  34.