home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / MC-SETUP.SDA / RUN.ME.1ST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  35 lines
  1. 10 REM ...THIS FILE IS USED TO READ SYSTEM INFO FILES
  2. 15 REM ...IT CAN BE USED FOR OTHER SYSTEM FILES, BUT THE ''EDITOR'' PROGRAM
  3. 20 REM ...IS MUCH BETTER FOR THAT...
  4. 25 REM ...(C) MC*BBS BY JT 1985-1987
  5. 100 CLOSE2:CLOSE15:POKE53281,.:POKE53280,11:POKE646,7
  6. 105 PRINT"[147]":INPUT" [215]HAT DRIVE IS THE DISK IN  8[157][157][157]";DV:IFDV<8ORDV>11THEN110
  7. 110 PRINT:PRINT"[212]HE FOLLOWING FILES ARE AVAILABLE:":PRINT
  8. 111 PRINT"(1) [205][195]*[194][194][211] SYSTEM INFORMATION"
  9. 112 PRINT"(2) [205][195]*[194][194][211] ORDERING INFORMATION"
  10. 113 PRINT"(3) [205][195]*[194][194][211] SETUP INFORMATION"
  11. 114 PRINT:INPUT"[197]NTER A NUMBER: 1[157][157][157]";A$:IFA$<"1"ORA$>"3"THEN114
  12. 115 F$="SYSTEM.TXT":IFA$="2"THENF$="ORDER.TXT"
  13. 116 IFA$="3"THENF$="SETUP.TXT"
  14. 117 PRINT:INPUT" [208]RINTER OR [211]CREEN  S[157][157][157]";A$:IFA$<>"P"ANDA$<>"[208]"THEN120
  15. 118 CLOSE4:OPEN4,4,7:PR=1:GOTO125
  16. 120 PRINT"[147]":PRINT"([208])AUSE OR ([193])BORT":PRINT
  17. 125 OPEN15,DV,15:OPEN2,DV,2,F$+",S,R":GOSUB300:IFE>19THEN400
  18. 130 PRINT:IFPRTHENPRINT#4
  19. 140 IFPR=.THENFORDE=1TO1500:NEXT
  20. 145 INPUT#2,A$:S=ST:IFS=2THEN145
  21. 150 PRINTA$:IFPRTHENPRINT#4,A$
  22. 160 GETB$:IFB$<>""THEN200
  23. 170 IFS<>64THEN140
  24. 180 CLOSE2:CLOSE15:GOTO400
  25. 200 IFB$="P"ORB$="[208]"THEN250
  26. 210 IFB$<>"A"ANDB$<>"[193]"THEN170
  27. 220 GOTO180
  28. 250 GETA$:IFA$=""THEN250
  29. 260 GOTO170
  30. 300 INPUT#15,E,E$,E1$,E2$:IFE<20THENRETURN
  31. 310 PRINTE;E$;E1$;E2$:CLOSE2:CLOSE15:END
  32. 400 IFPRTHENPRINT#4:CLOSE4
  33. 500 PRINT:INPUT"[210]EAD ANOTHER ONE  Y[157][157][157]";B$:IFB$<>"Y"AND B$<>"[217]"THENEND
  34. 505 RUN
  35.