home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / CG-VIEWER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  27 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147]"
  2. 11 PRINT:PRINT"  COLOR GRAFIX VIEWER BY ANDY PRINCE"
  3. 15 PRINT:PRINT"ENTER FILE TO VIEW"
  4. 20 PRINT"-->";:OPEN1,0:INPUT#1,NA$:CLOSE1
  5. 25 PRINT:PRINT"PLEASE WAIT....";
  6. 30 OPEN3,8,0,"0:"+NA$+",S,R"
  7. 35 OPEN15,8,15
  8. 40 INPUT#15,A$,B$
  9. 42 A=VAL(A$)
  10. 43 IFA=0THEN100
  11. 45 IFA$="62"THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]FILE NOT FOUND!":END
  12. 46 IFA<>64THEN75
  13. 50 IFA$="64"THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]FILE TYPE MISMATCH!"
  14. 55 IFA$="64"THENPRINT"TRYING TO READ IT AS A PRG FILE..."
  15. 60 IFA$="64"THENCLOSE3:OPEN3,8,0,"0:"+NA$+",P,R"
  16. 65 IFA$="64"THENCLOSE15:OPEN15,8,15:INPUT#15,A$,B$
  17. 70 IFA$="62"THEN45
  18. 71 A=VAL(A$):IFA=0THEN100
  19. 75 PRINT:PRINT"DISK ERROR #";A$
  20. 100 PRINT"[147]":PRINT:PRINT"      PRESS ANY KEY AFTER VIEWING"
  21. 101 GETA$:IFA$=""THEN101
  22. 105 GET#3,D$
  23. 110 IFST=>64THENCLOSE3:GOTO120
  24. 115 PRINTD$;:GOTO105
  25. 120 GETA$:IFA$=""THEN120
  26. 125 RUN
  27.