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