home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / cslide1.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  74 lines
  1. 100 REM
  2. 110 REM "CSLIDE" SLIDESHOW PROGRAM
  3. 120 REM MARC MOORCROFT
  4. 130 REM 73 ST. GEORGE ST.  #380
  5. 140 REM TORONTO, ONTARIO   M5S 2E5
  6. 150 REM
  7. 160 REM BASED ON "COMPRESSOR" BY CHRIS
  8. 170 REM ZAMARA IN THE TRANSACTOR
  9. 180 REM VOLUME 6 ISSUE 4.
  10. 190 REM
  11. 200 POKE55,0:POKE56,88:POKE51,0:POKE52,88
  12. 210 FORT=22528TO22607:READA:POKET,A:NEXT
  13. 220 DIM F$(144)
  14. 230 PRINT"ô   CSLIDESHOWÆ BY MARC MOORCROFT"
  15. 240 PRINT"INSERT PICTURES DISK AND HIT RETURN"
  16. 250 GETA$:IFA$<>CHR$(13)THEN250
  17. 260 PRINT"READING DIRECTORY"
  18. 270 OPEN1,8,0,"$0:JJ*"
  19. 280 GET#1,A$,A$,A$,A$,A$,A$:NF=0
  20. 290 GET#1,A$:IFA$<>""THEN290
  21. 300 GET#1,A$,A$,A$,A$
  22. 310 GET#1,A$:IFA$=" "ORA$=""THEN310
  23. 320 IFA$<>CHR$(34)THENCLOSE1:GOTO390
  24. 330 B$=""
  25. 340 GET#1,A$:IFA$=CHR$(34)THEN360
  26. 350 B$=B$+A$:GOTO340
  27. 360 B$=MID$(B$,3):F$(NF)=B$:PRINTB$:NF=NF+1
  28. 370 GET#1,A$:IFA$<>""THEN370
  29. 380 GOTO300
  30. 390 NF=NF-1
  31. 400 PRINT"ôMOVE UP AND DOWN THE LIST WITH THE"
  32. 410 PRINT"CRSRÆ KEYS. HIT RETURNÆ TO SEE A"
  33. 420 PRINT"PICTURE. HIT QÆ TO QUIT, AND"
  34. 430 PRINT"DÆ FOR ANOTHER DISK"
  35. 440 PRINT"PRESS RETURNÆ TO START"
  36. 450 FORT=1TO10:GETA$:NEXT
  37. 460 GETA$:IFA$<>CHR$(13)THEN460
  38. 470 PRINT"ô";:DP=0:SP=0:FORT=0TO20:PRINTF$(T):NEXT
  39. 480 PRINT"";
  40. 490 PRINTTAB(14)"<--":PRINT"æ";:GOTO500
  41. 500 GETA$:IFA$=""THEN500
  42. 510 IFA$=""THENGOSUB570:GOTO490
  43. 520 IFA$="æ"THENGOSUB640:GOTO490
  44. 530 IFA$="D"THENCLR:GOTO220
  45. 540 IFA$=CHR$(13)THEN700
  46. 550 IFA$="Q"THENPRINT"ô":END
  47. 560 GOTO500
  48. 2362 
  49. 580 IFDP=NFTHENRETURN
  50. 590 DP=DP+1
  51. 600 IFSP<20THENPRINT"";:SP=SP+1:RETURN
  52. 610 PRINT"æææ"F$(DP)
  53. 620 PRINT"                "
  54. 630 PRINT"";:RETURN
  55. 640 PRINTTAB(14)"   ":PRINT"æ";
  56. 650 IFDP=0THENRETURN
  57. 660 DP=DP-1
  58. 670 IFSP>0THENPRINT"æ";:SP=SP-1:RETURN
  59. 680 PRINT"¥ö":POKE218,132:PRINT"                "
  60. 690 PRINT""F$(DP):PRINT"";:RETURN
  61. 700 OPEN8,8,0,"JJ"+F$(DP)
  62. 710 POKE56576,2:POKE53272,120:POKE53265,59
  63. 720 SYS22528
  64. 730 GETA$:IFA$=""THEN730
  65. 740 POKE53272,20:POKE53265,27:POKE56576,3
  66. 750 GOTO500
  67. 760 REM ***  UNCOMPRESSOR ML  ***
  68. 770 DATA162,8,32,198,25    
  69. 780 DATA255,208,51,32,228,255,201,254,240,13,160,0,145,251,230,251,208
  70. 790 DATA2,230,252,24,144,231,32,228,255
  71. 800 DATA72,32,228,255,170,168,104,136,145,251,136,192,255,208,249,138,24
  72. 810 DATA101,251,133,251,144,2,230,252
  73. 820 DATA24,144,200,32,204,255,169,8,32,195,255,96
  74.