4 POKE56,56:CLR
5 DV=PEEK(186):IFDV<8THENDV=8
8 DIMM$(14):POKE679,0:YQ=1
9 I=RND(-TI)
10 POKE53281,0:POKE53280,0:PRINT""
12 SYS57812"GEEZEN FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
14 POKE53272,31
20 M$(1)="      [211][195][210][197][197][206] [198][210][193][205][197]        "
22 M$(2)="     [196][210][207][208] [198][210][207][205] [211][203][217]        "
24 M$(3)="     [218][207][207][205] [198][210][207][205] [204][197][198][212]       "
26 M$(4)="   [197][216][208][204][207][196][197] [198][210][207][205] [195][197][206][212][197][210]    "
28 M$(5)="        [209][213][201][195][203] [194][207][216]         "
30 M$(6)=" [197][210][193][211][197] [195][213][210][212][193][201][206] [204][197][198][212]/[210][201][199][200][212] "
32 M$(7)="  [197][210][193][211][197] [195][213][210][212][193][201][206] [213][208]/[196][207][215][206]   "
34 M$(8)="      [195][200][193][211][197][210] [205][193][210][209][213][197][197]      "
36 M$(9)="      [196][217][206][193][205][201][195] [212][201][212][204][197][211]      "
38 M$(10)="     [198][193][196][197] [213][208] [212][201][212][204][197][211]      "
40 M$(11)="        [212][197][204][197][212][217][208][197]         "
42 M$(12)="   [203][206][197][197]'[211] [203][193][204][197][201][196][207][211][195][207][208][197]   "
44 M$(13)="    [209][213][201][212] [212][207] [204][207][193][196][211][212][193][210]     "
90 PRINT"[147][129]            [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]
100 [153]"  ORTAN^ORTAN^ORTAN^ORTAN^ORTAN^OR^ORORTAN^OR=^ORTAN^ORTAN^^OREXPORTAN^
102 PRINT"  [221][176][174][171][179] [171][179] [176][192][189][171][179] [221][221][221][173][192][174] [221] [171][192][179][221]  [171][179] [173][192][174]
104 [153]"  /TANEXP/TANEXP/TANEXP/TANEXP/TANEXPEXP/EXP/TANEXP > EXP //TANEXPEXP/^/TANEXP
110 PRINT"[155]    [193] [195]OLLECTION OF [211]HORT [210]OUTINES BY
120 [153]"            MID$OHN '(null)EB' (null)ARRYCONT"
130 [129]I[178]1[164]13:[153][163]7)M$(I):[130]:[151]53370,0
140 [151]198,0
142 [151]214,YQ[170]8:[153]
144 [153][163]7)""M$(YQ)"ON"
150 [161]A$:[139]A$[178]""[167]150
160 [153][163]7)"WAITCONT"M$(YQ)
170 [139]A$[178]"ON"[167]YQ[178]YQ[171]1:[139]YQ[179]1[167]YQ[178]13
180 [139]A$[178]""[167]YQ[178]YQ[170]1:[139]YQ[177]13[167]YQ[178]1
190 [139]A$[178][199](13)[167]210
200 [137]140
210 [145]YQ[141]1000,1200,1400,1600,1800,2000,2200,2400,2600,2800,3000,3200,40000
220 [139]A$[178]"A"[167]210
230 [137]90
500 [151]214,18:[153]:[153][163]14)"PRINT#ORTANTANTANTANTANTANTANTANTANTANTAN^
510 PRINTTAB(14)"[221] [193][152] - [193]GAIN [221]
520 [153][163]14)"(null) (null)PRINT# - (null)ENU  (null)
530 PRINTTAB(14)"[173][192][192][192][192][192][192][192][192][192][192][192][189]
540 [151]198,0
550 [161]A$:[139]A$[178]""[167]550
560 [142]
997 :
998 :[143] SCREEN FRAME
999 :
1000 [153]"LOAD":[143] CLEAR SCREEN
1010 S[178]54272:[143] COLOR OFFSET
1020 CH[178]102:[143] CHARACTER
1030 CO[178]2:[143] COLOR
1040 [129]I[178]1024[164]1063:[151]I,CH:[151]I[170]S,CO:[130]
1050 [129]I[178]1103[164]2023[169]40:[151]I,CH:[151]I[170]S,CO:[130]
1060 [129]I[178]2022[164]1984[169][171]1:[151]I,CH:[151]I[170]S,CO:[130]
1070 [129]I[178]1944[164]1064[169][171]40:[151]I,CH:[151]I[170]S,CO:[130]
1080 [141]500
1090 [142]
1197 :
1198 :[143] DROP FROM TOP
1199 :
1200 [153]"LOADOPEN":[143] CLEAR SCREEN
1210 RO[178]10:[143] SCREEN ROW TO PRINT ON
1220 M$[178]"(null)(null)(null)(null) (null)VAL(null)(null)ATNCHR$VAL LEFT$VAL(null)VAL"
1230 L[178][195](M$):TAB[178](40[171]L)[173]2[171]1
1240 [129]J[178]1[164]L
1250 LT$[178][202](M$,J,1)
1260 [153]""
1270 [139]LT$[179][177]" "[167][129]K[178]1[164]RO[171]2:[153][163]TA[170]J)LT$"ON":[153][163]TA[170]J)" ":[130]
1280 [153][163]TA[170]J)LT$:[130]
1290 [141]500
1300 [142]
1397 :
1398 :[143] ZOOM FROM LEFT
1399 :
1400 [153]"LOADOPEN":[143] CLEAR SCREEN
1410 RO[178]10:[143] SCREEN ROW TO PRINT ON
1420 M$[178]"(null)(null)(null)(null) (null)VAL(null)(null)ATNCHR$VAL LEFT$VAL(null)VAL"
1430 [151]214,RO[171]1:[153]
1440 L[178][195](M$):TAB[178](40[171]L)[173]2[171]1
1450 [129]J[178]L[164]1[169][171]1
1460 LT$[178]" "[170][202](M$,J,1)
1470 [139]LT$[179][177]"  "[167][129]K[178]1[164]J:[153][163]TA[170]K[171]1)LT$"ON":[130]
1480 [130]:[153]
1490 [141]500
1500 [142]
1597 :
1598 :[143] EXPLODE FROM CENTER
1599 :
1600 [153]"LOADOPEN":[143] CLEAR SCREEN
1610 RO[178]10:[143] SCREEN ROW TO PRINT ON
1620 M$[178]"(null)(null)(null)(null) (null)VAL(null)(null)ATNCHR$VAL LEFT$VAL(null)VAL"
1630 [151]214,RO[171]1:[153]
1640 [139][195](M$)[175]1[167]M$[178]M$[170]" "
1650 L[178][195](M$):TAB[178](40[171]L)[173]2:TB[178]L[173]2:TC[178]TA[170]TB
1660 [129]J[178]1[164]TB:TC[178]TC[171]1
1670 [153][163]TC)[200](M$,J)[163]TB)[201](M$,J)"ON"
1680 [129]T[178]1[164]40:[130]
1690 [130]
1700 [141]500
1710 [142]
1797 :
1798 :[143] QUICK BOX
1799 :
1800 [153]"LOADOPEN":[143] CLEAR SCREEN
1810 HZ$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1820 SP$[178]"                                       ":CO[178]0
1830 C[178][181]([187](0)[172]15)[170]1:[143] COLOR
1840 X[178][181]([187](0)[172]18):[143] COLUMN
1850 XX[178][181]([187](0)[172]16):[143] X SIZE
1860 Y[178][181]([187](0)[172]10):[143] ROW
1870 YY[178][181]([187](0)[172]10):[143] Y SIZE
1880 [151]646,C:[151]214,Y:[153]
1890 [153][163]X)"OR"[200](HZ$,XX)"^"
1900 [129]I[178]1[164]YY:[153][163]X)"(null)"[200](SP$,XX)"(null)":[130]
1910 [153][163]X)"/"[200](HZ$,XX)"EXP"
1920 CO[178]CO[170]1:[139]CO[179]10[167]1830
1930 [141]500
1940 [142]
1997 :
1998 :[143] ERASE CURTAIN L/R
1999 :
2000 [153]"LOADOPEN";:[143] CLEAR SCREEN
2010 [129]I[178]0[164]23:[153]"MID$UST FILLING THE SCREEN WITH SOMETHING.":[130]
2020 [129]J[178]0[164]23:C2$[178]C2$[170][199](32)[170][199](157)[170][199](17):[130]
2030 C2$[178]C2$[170][199](145)
2040 [129]J[178]0[164]19
2050 [139]J[178]0[167][151]781,24:[158]59903
2060 [153]""[163]J)C2$
2070 [153]""[163]38[171]J)C2$
2080 [130]:C2$[178]""
2090 [141]500
2100 [142]
2197 :
2198 :[143] ERASE CURTAIN U/D
2199 :
2200 [153]"LOADOPEN";:[143] CLEAR SCREEN
2210 [129]I[178]0[164]23:[153]"MID$UST FILLING THE SCREEN WITH SOMETHING.":[130]
2220 [129]J[178]0[164]23:C2$[178]C2$[170][199](32)[170][199](157)[170][199](17):[130]
2230 C2$[178]C2$[170][199](145)
2240 [129]J[178]0[164]19
2250 [139]J[178]0[167][151]781,24:[158]59903
2260 [151]781,J:[158]59903
2270 [151]781,24[171]J:[158]59903
2280 [130]:C2$[178]""
2290 [141]500
2300 [142]
2397 :
2398 :[143] CHASER MARQUEE
2399 :
2400 [153]"LOADOPEN";:[143] CLEAR SCREEN
2410 V[178]53248:[151]V[170]32,0:[151]V[170]33,0
2420 [129]X[178]0[164]37[169]3:[151]1024[170]X,64[170]32:[151]1024[170]X[170]1,128[170]32:[151]1024[170]X[170]2,192[170]32
2430 [151]1984[170]X,192[170]32:[151]1984[170]X[170]1,128[170]32:[151]1984[170]X[170]2,64[170]32
2440 [130]
2450 [129]X[178]0[164]22[169]3
2460 [151]1024[170]X[172]40,192[170]32:[151]1024[170](X[170]1)[172]40,128[170]32:[151]1024[170](X[170]2)[172]40,64[170]32
2470 [151]1063[170]X[172]40,64[170]32:[151]1063[170](X[170]1)[172]40,128[170]32:[151]1063[170](X[170]2)[172]40,192[170]32
2480 [130]:[151]2023,128[170]32
2490 [151]V[170]17,[194](V[170]17)[176]64:[151]V[170]34,1:[151]V[170]35,2:[151]V[170]36,2:[143] EXT BKG MODE
2500 [151]214,7:[153]:[153][163]14)"PRESS A KEY
2510 A=PEEK(V+34):B=PEEK(V+35):C=PEEK(V+36)
2520 POKEV+34,C:POKEV+35,A:POKEV+36,B
2530 GETA$:IFA$=""THENFORX=1TO75:NEXT:GOTO2510
2540 POKEV+21,0:POKEV+17,155:PRINT"[147]":REM RESET NORMAL MODE
2550 GOSUB500
2560 RETURN
2597 :
2598 :REM DYNAMIC TITLES
2599 :
2600 X=0:PRINT"[147]";:REM CLEAR SCREEN
2610 N$(0)=">> DYNAMIC TITLE SCREEN <<"
2620 N$(1)=">> A BIG HOWDY FROM THE <<"
2630 N$(2)=">> FOLKS AT LOADSTAR!!! <<
2632 N$(3)[178]""
2640 A[178]1:B[178]26:C[178]32:D[178]1:E[178]0:F[178]0:G[178]0:H[178]0:I[178]0:J[178]0:K[178]C:L[178]C:M[178]C:N[178]C:P[178]41:R[178]39
2650 [139]A[177]B[167]2750
2660 G[178]1263[170]E:H[178]1304[171]F:I[178]1903[170]E:J[178]1944[171]F:N1$[178][202](N$(X),A,D):N2$[178][202](N$(X),B,D)
2670 [139]N1$[178]A$[167]A[178]A[170]D:E[178]E[170]D:[137]2650
2680 [139]N2$[178]A$[167]B[178]B[171]D:F[178]F[170]D:[137]2650
2690 [151]G,K:G[178]G[170]P:K[178][194](G):[151]G,[198](N1$)
2700 [151]H,L:H[178]H[170]R:L[178][194](H):[151]H,[198](N2$)
2710 [151] I,M:I[178]I[171]R:M[178][194](I):[151] I,[198](N1$)
2720 [151]J,N:J[178]J[171]P:N[178][194](J):[151]J,[198](N2$)
2730 [139] G[177][178]I[167]A[178]A[170]D:B[178]B[171]D:E[178]E[170]D:F[178]F[170]D:K[178]C:L[178]C:M[178]C:N[178]C:[137]2650
2740 [137]2690
2750 [129]S[178]0[164]2:[158]59626:[130]:X[178]X[170]1:[139]N$(X)[179][177]""[167]2640
2760 L[178][195](M$):MI[178]38[171]L[173]2:[129]I[178]1[164][195](M$)[171]19
2770 [153]PL$[166]MI)[200](M$,I)[201](M$,L[171](L[171]I)):MI[178]MI[171]1:[130]
2780 [141]500
2790 [142]
2797 :
2798 :[143] FADE UP TITLES
2799 :
2800 [153]"LOAD";:[143] CLEAR SCREEN
2810 [153]"":C$[178]"LISTPRINT#POKESTOP":D$[178]""
2820 [143] PUT STARTING AND ENDING MESSAGE IN A$
2830 [143] STARTING LINE INTO S -- ENDING LINE INTO E
2840 A$[178]"LENOME UP TO THE (null)OWER":S[178]24:E[178]2:[141]2880
2850 A$[178]"AND KICK OFF YOUR SHOES.":S[178]24:E[178]4:[141]2880
2860 A$[178]"RIGHT$T'S COOL INSIDE!":S[178]24:E[178]6:[141]2880
2870 [137]2940
2880 [129] X[178]S[164]E[169][171]1:[129]Y[178]0[164](S[171]X)[170](X[179]S[171]4)[172](S[171]4[171]X)
2890 [153][200](D$,X[170]Y)[163]20[171][195](A$)[173]2)[202](C$,Y[170]1,1)A$"":[130]Y,X
2900 [129] C[178]2[164]5:[129]Y[178]1[164]5[171]C
2910 [153][200](D$,E[170]Y)[163]20[171][195](A$)[173]2)[202](C$,C[170]Y,1)A$""
2920 [130]:[130]
2930 [142]
2940 [141]500
2950 [142]
2997 :
2998 :[143] TELETYPE
2999 :
3000 [153]"LOAD":[143] CLEAR SCREEN
3010 [143] PUT MESSAGE IN M$ AND GOSUB3060
3020 M$[178]"RIGHT$MPORTANT MESSAGE FROM (null)(null)ATNSTR$(null)(null)ATN(null)!":[141]3060
3030 M$[178]"(null)OUR FLY IS UNZIPPED!":[141]3060
3040 M$[178]"(null)VER AND OUT.":[141]3060
3050 [137]3190
3060 [151]54273,99:[151]54278,250
3070 [151]54276,129
3080 [129]I[178]1[164][195](M$)
3090 [153]" WAITCMD";
3100 [129]J[178]1[164]19:[130]
3110 [151]54296,15
3120 [153][202](M$,I,1);
3130 [151]54296,0
3140 [130]:[153]
3150 [151]54276,32:[151]54296,15
3160 [129]J[178]1[164]299:[130]
3170 [151]54276,0:[151]54296,0
3180 [142]
3190 [141]500
3192 [142]
3197 :
3198 :[143] KNEE'S KALEIDOSCOPE
3199 :
3200 [153]"LOAD":[143] CLEAR SCREEN
3210 M[178]1024[170]500:R[178]10:F[178]40:S[178]M[170]54272
3220 [151]53371,0
3222 [139][194](679)[167]3280
3224 [151]679,1:[134]D(14,5)
3230 [129]I[178]1[164]13:[129]J[178]1[164]4:[135]D(I,J):[130]:[130]
3240 [131]109,112,110,125,112,109,125,110,110,125,109,112,125,110,112,109
3250 [131]108,124,126,123,124,108,123,126,126,123,108,124,123,126,124,108
3260 [131]107,107,115,115,115,115,107,107,113,114,114,113,114,113,113,114
3270 [131]32,32,32,32
3280 [153]"         (null)RESS A KEY WHEN BORED
3290 X=INT(RND(0)*R):Y=INT(RND(0)*R)*F
3300 C=RND(0)*15+1:P=RND(0)*24+1:IFP>12THENP=13
3310 POKEM+X-Y,D(P,1):POKES+X-Y,C
3320 POKEM+X+Y,D(P,2):POKES+X+Y,C
3330 POKEM-X+Y,D(P,3):POKES-X+Y,C
3340 POKEM-X-Y,D(P,4):POKES-X-Y,C
3350 IFPEEK(203)<>64THEN3370
3360 GOTO3290
3370 GOSUB500
3380 RETURN
10000 D=PEEK(186):N$="B.GEEZENSTACKS":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END