home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / DISK-MARQUEE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.0 KB  |  106 lines

  1. 100 REM  NOTE! PRESS "CTRL" + "*" TO EXIT PROGRAM
  2. 110 REM MARQUEE ML BY BRIAN SCHOTT
  3. 120 REM STRINGTHING INPUT ML BY J. BUTTERFIELD
  4. 130 REM COMBINATION BY DAVID PAUL 5/23/84
  5. 140 GOSUB420: REM SET MAX STRING LENGTH; MUST BE FIRST VARIABLE IN MEMORY
  6. 150 BC=2:CC=1:BK=0:REM BORDER,CHARACTER,BACKGROUND COLORS
  7. 160 B=49152:CH=B+98
  8. 170 POKE53272,21:POKE788,52
  9. 180 POKE53280,6:POKE53281,6:PRINT"[147]";
  10. 190 PRINTTAB(14)"[196]ISK [205]ARQUEE":FORI=1TO40:PRINT"[163]";:NEXT:PRINT
  11. 200 PRINTTAB(10)"[158][193]DAPTED BY [196]AVID [208]AUL"
  12. 210 PRINTTAB(12)"FROM PROGRAMS BY"
  13. 220 PRINTTAB(8)"[194].[211]CHOTT & [202].[194]UTTERFIELD"
  14. 230 PRINT"[211]ETTING UP...":GOSUB430
  15. 240 INPUT"[198]ILENAME[158]";NA$:IFNA$=""THEN480
  16. 250 INPUT"[211]PEED (1-20)  [158]5[157][157][157]";SP:IFSP<1ORSP>20THENSP=5
  17. 260 POKE53280,0:POKE53281,6:PRINT"[147]":POKE53281,BK:PRINTCHR$(142)
  18. 270 OPEN15,8,15,"I0":OPEN1,8,2,NA$
  19. 280 INPUT#15,X,X$
  20. 290 IFX=0THEN330
  21. 300 PRINT"ERROR: "X$:PRINT"PRESS KEY TO CONTINUE..."
  22. 310 GETQ$:IFQ$=""THEN310
  23. 320 RUN
  24. 330 POKEB+93,SP
  25. 340 SYS896:IFST<>0THENCLOSE1:CLOSE15:GOTO270
  26. 350 L=PEEK(142):IFL=0THEN340:REM L=SIZE OF INPUT(>=0)
  27. 360 S$=LEFT$(A$,L)
  28. 370 FORK=1TOL
  29. 380 Q=PEEK(197):IFQ=49THEN470:REM DETECT EXIT REQUEST
  30. 390 T=ASC(MID$(S$,K,1)):IFT>64THENT=T-64
  31. 400 POKECH,T:SYSB+108:PRINTCHR$(157);
  32. 410 NEXT:POKECH,32:SYSB+108:POKECH,32:SYSB+108:GOTO340:REM READ SOME MORE
  33. 420 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$:RETURN
  34. 430 FORJ=896TO937:READX:POKEJ,X:T=T+X
  35. 440 NEXT:IFT<>6120THENSTOP
  36. 450 FORA=49152TO49495:READD:POKEA,D:NEXT
  37. 460 RETURN
  38. 470 CLOSE1:PRINT#15,"I":CLOSE15
  39. 480 POKE198,0:PRINT"[147]":POKE788,49:SYS2048
  40. 490 REM BEGIN STRINGTHING DATA
  41. 500 DATA160,002,177,045,153,137,000,200
  42. 510 DATA192,006,208,246,162,001,032,198
  43. 520 DATA255,032,228,255,201,013,240,015
  44. 530 DATA164,142,145,140,200,132,142,196
  45. 540 DATA139,240,004,165,144,240,234,076
  46. 550 DATA204,255
  47. 560 REM BEGIN MARQUEE DATA
  48. 570 DATA127,127,127,127,127,127
  49. 580 DATA127,127,160,0,169,0
  50. 590 DATA133,251,169,4,133,252
  51. 600 DATA162,24,24,165,251,105
  52. 610 DATA40,133,251,165,252,105
  53. 620 DATA0,133,252,169,32,145
  54. 630 DATA251,202,16,236,160,1
  55. 640 DATA162,3,169,0,133,251
  56. 650 DATA133,253,169,4,133,252
  57. 660 DATA133,254,165,253,208,2
  58. 670 DATA198,254,198,253,177,251
  59. 680 DATA145,253,200,208,249,230
  60. 690 DATA252,230,254,177,251,145
  61. 700 DATA253,200,202,208,237,177
  62. 710 DATA251,145,253,200,192,232
  63. 720 DATA208,247,96,0,31,3
  64. 730 DATA247,96,120,0,60,102
  65. 740 DATA102,102,102,102,60,0
  66. 750 DATA169,0,141,99,192,14
  67. 760 DATA98,192,46,99,192,14
  68. 770 DATA98,192,46,99,192,14
  69. 780 DATA98,192,46,99,192,169
  70. 790 DATA208,72,169,0,72,173
  71. 800 DATA99,192,72,173,98,192
  72. 810 DATA72,32,50,193,133,252
  73. 820 DATA132,251,169,100,133,253
  74. 830 DATA169,192,133,254,120,169
  75. 840 DATA51,133,1,160,7,177
  76. 850 DATA251,145,253,136,16,249
  77. 860 DATA169,55,133,1,88,24
  78. 870 DATA173,22,208,41,248,105
  79. 880 DATA7,141,22,208,160,7
  80. 890 DATA 162,7,177,253,10,62
  81. 900 DATA0,192,202,16,249,136
  82. 910 DATA16,242,162,7,24,173
  83. 920 DATA94,192,105,0,133,251
  84. 930 DATA173,95,192,105,4,133
  85. 940 DATA252,160,7,152,72,160
  86. 950 DATA0,169,32,62,0,192
  87. 960 DATA144,2,169,81,145,251
  88. 970 DATA56,165,251,233,40,133
  89. 980 DATA251,165,252,233,0,133
  90. 990 DATA252,104,168,136,16,223
  91. 1000 DATA138,72,162,6,24,173
  92. 1010 DATA22,208,41,248,134,253
  93. 1020 DATA101,253,141,22,208,202
  94. 1030 DATA72,138,174,93,192,160
  95. 1040 DATA0,136,208,253,202,208
  96. 1050 DATA248,170,104,16,231,32
  97. 1060 DATA8,192,104,170,202,16
  98. 1070 DATA163,96,147,192,120,0
  99. 1080 DATA104,141,46,193,104,141
  100. 1090 DATA47,193,104,141,48,193
  101. 1100 DATA104,141,49,193,104,24
  102. 1110 DATA109,48,193,168,104,109
  103. 1120 DATA49,193,170,173,47,193
  104. 1130 DATA72,173,46,193,72,138
  105. 1140 DATA96,96
  106.