home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ911128.ARC / SW-SET (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  73 lines
  1. 10 POKE53280,0:POKE53281,0:CLR:DIMX(36),B(12),R(12),H(12)
  2. 20 FORI=0TO12:READB(I):NEXT:DATA254,0,1,3,7,15,23,31,47,63,95,127,255
  3. 25 FORI=0TO12:READR(I):NEXT:DATA0,2,5,6,7,8,9,10,11,12,13,14,15
  4. 30 PRINT"[147][196][212][202]-[194][194][211] [210][211]-232 [196]EVICE [211]ET-UP - [214]2.0"
  5. 40 PRINT"[212]HIS PROGRAM MODIFIES THE [194][194][211] PROGRAM"
  6. 50 PRINT"FILE TO WORK WITH EITHER THE BUILT-IN"
  7. 60 PRINT"[203]ERNAL [210][211]-232 ROUTINES OR A [211]WIFTLINK   CARTRIDGE."
  8. 70 PRINT"(1541, 1571, 1581, [195][205][196]-[200][196] OR COMPATABLE)"
  9. 80 PRINT"[196]RIVE [194][194][211] FILE IS LOCATED ON: 8[157][157][157]";:INPUTD
  10. 90 OPEN1,D,15:CLOSE1:IFST=0THEN110
  11. 100 PRINT"[196]RIVE NOT PRESENT.":END
  12. 110 PRINT"[205]AKE SURE [194][194][211] PROGRAM DISK IS IN DRIVE"
  13. 120 PRINT"AND PRESS A KEY TO CONTINUE."
  14. 130 POKE198,0:WAIT198,255:GETA$:PRINT"[211]EARCHING FOR [194][194][211] FILE..."
  15. 140 OPEN2,D,2,"$":FORI=1TO127:GET#2,A$,A$:NEXT
  16. 150 IFST>0THENE$="FILE NOT FOUND":GOTO570 
  17. 160 FORJ=1TO8:GET#2,A0$,A1$,A2$,A3$,A4$,A5$,A6$,A$,A$,A$,A$,A$,A$,A$,A$
  18. 170 GET#2,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$:IFJ<8THENGET#2,A$,A$
  19. 180 IFA0$<CHR$(129)ORA3$+A4$+A5$+A6$<>"BBS[160]"THENNEXTJ:GOTO150
  20. 190 CLOSE2:OPEN1,D,15:OPEN2,D,2,"#":T1=ASC(A1$+CHR$(0)):S1=ASC(A2$+CHR$(0))
  21. 200 PRINT#1,"U1 2 0";T1;S1:PRINT#1,"B-P 2 140":FORI=0TO36:GET#2,A$
  22. 210 X(I)=ASC(A$+CHR$(0)):NEXT:V=X(1)
  23. 220 V=-(V=222)-2*(V=215)-3*(V=223):CLOSE2:CLOSE1:IFX(0)=0THEN240
  24. 230 E$="[197]RROR: [212]HIS PROGRAM DOES NOT SUPPORT    THIS REVISION [194][194][211].":GOTO570 
  25. 240 PRINT"[147][196][212][202]-[194][194][211] [210][211]-232 [205]ODE":PRINT"   0 - [196][212][202]/[203]ERNAL [210][211]-232 ROUTINES"
  26. 250 PRINT"   1 - [211]WIFTLINK CARTRIDGE":PRINT"   2 - [211]WIFTLINK CARTRIDGE @ $[196]700"
  27. 260 PRINT"   3 - [211]WIFTLINK CARTRIDGE @ $[196][198]00"
  28. 270 PRINT"[211]ELECT MODE AND PRESS [210][197][212][213][210][206]."
  29. 280 PRINTLEFT$("",V*2+4);"->";:POKE198,0:WAIT198,255:GETA$:PRINT"[157][157]  ";
  30. 290 IFA$>"/"ANDA$<"4"THENV=VAL(A$):GOTO280
  31. 300 IFA$<>CHR$(13)THENV=(3AND(V-(A$="")+(A$="[145]"))):GOTO280
  32. 310 V=-222*(V=1)-215*(V=2)-223*(V=3)
  33. 320 X(1)=V:IFV=0THEN480
  34. 330 PRINT"[147][196][212][202]-[194][194][211] [211]WIFTLINK [194]AUDRATE [211]ELECTION":PRINT"  [194]AUD             [200]AYES"
  35. 340 PRINT"  [210]ATE           [210]ESPONSE":PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  36. 342 FORI=0TO5:H(I)=-(X(I+25)>127):X(I+25)=15ANDX(I+25):GOSUB510:NEXT:I=0
  37. 343 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  38. 344 PRINT"[211]ELECT UP TO 6 BAUDRATES YOU WANT TO USE";
  39. 345 PRINT "WITH YOUR [194][194][211].  [195]HECK YOUR MODEM USER"
  40. 346 PRINT "MANUAL FOR THE PROPER NUMERIC RESPONSE"
  41. 347 PRINT "CODES FOR CONNECTIONS AT EACH BAUDRATE."
  42. 348 PRINT "[208]RESS [211][208][193][195][197] TO TOGGLE ECHO FOR BAUD."
  43. 349 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  44. 350 PRINT "[195]RSR-UP/DOWN - [211]ELECT BAUDRATE"
  45. 360 PRINT "[+]  [-]     - [195]HANGE BAUDRATE"
  46. 370 PRINT "[@]  [*]     - [195]HANGE RESPONSE CODE"
  47. 380 PRINT "[[210][197][212][213][210][206]]     - [211]AVE TO DISK & EXIT"
  48. 390 PRINTLEFT$("",I+6)"->";
  49. 400 POKE198,0:WAIT198,255:GETA$:PRINT"[157][157]  ";:IFA$=CHR$(13)THEN480
  50. 410 IFA$=""ORA$="[145]"THENI=I-(A$=""ANDI<5)+(A$="[145]"ANDI>0):GOTO390
  51. 415 IFA$=" "THENH(I)=1-H(I):GOSUB510:GOTO390
  52. 420 IFA$<>"+"ANDA$<>"-"ANDA$<>"@"ANDA$<>"*"THEN390
  53. 430 IFA$="@"ORA$="*"THEN460
  54. 440 FORJ=0TO12:IFB(J)<>X(I+31)THENNEXT:J=0
  55. 450 J=J-(A$="+")+(A$="-"):J=J-13*(J<0)+13*(J>12):X(I+31)=B(J)
  56. 455 X(I+25)=R(J):GOSUB510:GOTO390
  57. 460 X(I+19)=X(I+19)-(A$="@"ANDX(I+19)<255)+(A$="*"ANDX(I+19)>0)
  58. 470 GOSUB510:GOTO390
  59. 480 PRINT"[147][211]AVING...":OPEN1,D,15,"I0":OPEN2,D,2,"#"
  60. 482 FORJ=0TO5:FORI=0TO12:IFB(I)<>X(J+31)THENNEXTI:I=0
  61. 483 X(J+25)=R(I)+128*H(J):NEXTJ
  62. 490 PRINT#1,"U1 2 0";T1;S1:PRINT#1,"B-P 2 140":FORI=0TO36:PRINT#2,CHR$(X(I));
  63. 500 NEXT:PRINT#1,"U2: 2 0";T1;S1:E$="DONE":GOTO570 
  64. 510 POKE646,1+9*H(I)
  65. 512 PRINTLEFT$("",I+8);:IFX(31+I)=254THENPRINT"       ";:GOTO530
  66. 515 PRINT" "150*(X(I+31)+1)"[157]  ";
  67. 520 IFX(I+19)>0THENPOKE211,20:PRINTX(I+19)"[157]  ";:GOTO540
  68. 530 POKE211,20:PRINT"         ";
  69. 540 PRINT"":RETURN
  70. 550 PRINT#1,"U1 2 0";T;S:GET#2,A$:T=ASC(A$+CHR$(0)):GET#2,A$:S=ASC(A$+CHR$(0))
  71. 560 RETURN
  72. 570 CLOSE2:CLOSE1:PRINTE$:END
  73.