home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / MULTICOLOR-GRAPHICS-CONV (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  48 lines
  1. 10 REM COMPLETED 4/8/86
  2. 20 POKE53280,254
  3. 30 POKE53281,246
  4. 40 PRINTCHR$(142)CHR$(8)
  5. 50 PRINT"ô     MULTICOLOR GRAPHICS CONVERTER"
  6. 60 PRINT"     COPYRIGHT 1986 BY ROBERT ONDA"
  7. 70 PRINT"          THIS PROGRAM MAY BE"
  8. 80 PRINT"          COPIED BUT NOT SOLD"
  9. 90 PRINT"              PRESS A KEY"
  10. 100 WAIT198,1:POKE198,0
  11. 110 PRINT"ô"
  12. 120 PRINT
  13. 130 PRINT" ORIGINAL FILE:"
  14. 140 PRINT"          1 - KOALA"
  15. 150 PRINT
  16. 160 PRINT"          2 - BLAZING PADDLES"
  17. 170 PRINT"              ANIMATION STATION"
  18. 180 WAIT198,1
  19. 190 GETA$
  20. 200 F=VAL(A$)
  21. 210 IFF<1ORF>2THEN180
  22. 220 PRINT" CONVERT TO:"
  23. 230 IFF=1THEN270
  24. 240 PRINT"              KOALA"
  25. 250 IFF=2THEN290
  26. 260 PRINT
  27. 270 PRINT"              BLAZING PADDLES"
  28. 280 PRINT"              ANIMATION STATION"
  29. 290 PRINT" PRESS A KEY"
  30. 300 WAIT198,1
  31. 310 GETA$
  32. 320 POKE198,0
  33. 330 IFF=1THENGOSUB350:GOSUB580:GOTO880
  34. 340 IFF=2THENGOSUB420:GOSUB480:GOTO650
  35. 350 REM INPUT KOALA
  36. 360 PRINT"ô ORIGINAL FILE - KOALA"
  37. 370 PRINT" ENTER FULL ORIGINAL NAME"
  38. 380 PRINT" USE [^] FOR REVERSE SPADE IF NEEDED"
  39. 390 PRINT" ";:INPUTFF$
  40. 400 IFLEFT$(FF$,1)="^"THENFF$=CHR$(129)+RIGHT$(FF$,LEN(FF$)-1)+"*"
  41. 410 RETURN
  42. 420 REM INPUT BLAZING PADDLES
  43. 430 PRINT"ô ORIGINAL FILE - BLAZING PADDLES"
  44. 440 PRINT"                 ANIMATION STATION"
  45. 450 PRINT" ENTER FULL ORIGINAL NAME"
  46. 460 PRINT" ";:INPUTFF$
  47. 470 RETURN
  48.