40 POKE53281,0:POKE53280,0
50 POKE 55,.:POKE 56,92:CLR:POKE788,52
60 DV=PEEK(186):IF DV<8 THEN DV=8
62 PRINT"[147]":GOSUB60000
70 LO=0:REM *** IF LO THEN NO LOAD ***
80 GOSUB 240:GOSUB 370:GOSUB 970
90 SYSTX+21,208:SYSTX+24,20,12,"[159][146]"+STR$(DV):SYSTX+24,20,13,"[159][146]"+STR$(DD)
100 SYSTX+48,7,12,27,10,3,7,133
110 IF F%=0 OR F%=10 THEN GOSUB 900:GOTO 90
120 ON F% GOTO 140,150,230,160,170,180,190,200,210,220
130 GOTO 100
140 GOSUB 1500:GOTO 90
150 GOSUB 1300:GOTO 90
160 GOSUB 1730:GOTO 90
170 GOSUB 2270:GOTO 90
180 XX=1:GOSUB 770:GOTO 90
190 XX=2:GOSUB 770:GOTO 90
200 GOSUB 2640:GOTO 90
210 GOSUB 2830:GOTO 90
220 GOSUB 660:GOTO 90
230 GOSUB 2490:GOTO 90
240 REM *** LOAD FILES ***
250 IF LO THEN 310
260 SYS 57812"PSCON.FONT/ML",DV,0:POKE780,0:POKE781,0:POKE782,8*16:SYS65493
270 SYS 57812"PSCON.FONT",DV,0:POKE780,0:POKE781,0:POKE782,200:SYS65493
280 SYS 57812"PSCON.SPR",DV,0:POKE780,0:POKE781,0:POKE782,196:SYS65493
290 SYS9*16^3+54,34816,36864,61440
300 REM
310 TX=9*16^3:ML=8*16^3:POKE650,128:DD=DV:DC=DV:QT$=CHR$(34)
320 SYSML,24576,23552:SYSML+24:SYSML+30,1
330 REM
340 REM
350 REM
360 RETURN
370 REM *** SCREEN(S) ***
380 POKE 53265,PEEK(53265)AND239
390 POKE53280,.:POKE 53281,.
400 SYSTX+15,0,39,0,24,127,7
410 SYSTX+15,0,39,0,0,98,3
420 SYSTX+15,0,39,1,1,160,14
430 SYSTX+15,0,39,2,2,226,6
440 SYSTX+15,0,39,22,22,98,10
450 SYSTX+15,0,39,23,23,160,8
460 SYSTX+15,0,39,24,24,226,2
470 SYSTX+24,15,1,"[154][208] [211] [195] [207] [206]"
480 X=11:Y=4:SYSTX+15,X-1,X+16,Y+1,Y+16,255,9
490 SYSTX+24,X,Y,"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
500 [158]TX[170]24,X,Y[170]1,"(null)DEFSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSIN(null)
510 SYSTX+24,X,Y+2,"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
520 [158]TX[170]24,X,Y[170]3,"(null)WAITOPEN (null)(null) PEEKRIGHT$(null)-(null)ATN(null)     (null)
530 SYSTX+24,X,Y+4,"[221][146][159] [204][207][193][196] [196][207][207][196][204][197]!   [221]
540 [158]TX[170]24,X,Y[170]5,"(null)WAITOPEN (null)ATN(null)VAL STR$(null)(null)STR$(null)VAL!   (null)
550 SYSTX+24,X,Y+6,"[221][146][159] [196][201][210][197][195][212][207][210][217]      [221]
560 [158]TX[170]24,X,Y[170]7,"(null)WAITOPEN STR$(null)RIGHT$(null)VAL LEN(null)(null)(null)ATN(null)STR$(null) (null)
570 SYSTX+24,X,Y+8,"[221][146][159] [211][207][213][210][195][197]:        [221]
580 [158]TX[170]24,X,Y[170]9,"(null)WAITOPEN STR$VAL(null)(null):          (null)
590 SYSTX+24,X,Y+10,"[221][146][159] [201][206][211][212][210][213][195][212][201][207][206][211]   [221]
600 [158]TX[170]24,X,Y[170]11,"(null)WAITOPEN LEN(null)VALSTR$RIGHT$(null)(null)        (null)
610 SYSTX+24,X,Y+12,"[221][146][159] [197][206][196] [208][210][207][199][210][193][205]    [221]
620 [158]TX[170]24,X,Y[170]13,"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
630 SYSTX+24,X,Y+14,"[221][150] [195][210][211][210]/[210][197][212][213][210][206]/[198]1 [221]
640 [158]TX[170]24,X,Y[170]15,"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
650 SYSTX+18,208:RETURN
660 REM ***
670 SYSTX+15,0,39,23,23,160,8
680 SYSTX+24,7,23,"[129][198]EATURE NOT ENABLED. [211]ORRY.
690 TM[178]1000
700 [143] *** USER ENDED DELAY ***
710 [129]J[178]1[164]TM:[161]A$:[139] A$[178]"" [167] [130]:[142]
720 J[178]TM:[142]
730 [143] *** PRINT DISK ERROR ***
740 [158]TX[170]15,0,39,23,23,160,8
750 [158]TX[170]24,20[171][195](E$)[173]2,23,"FOR"[170]E$
760 TM[178]1000:[137] 700
770 [143] *** DRIVE CHANGE ***
780 X[178]31:Y[178]0:[158]TX[170]15,X[171]1,X[170]6,Y[170]8,Y[170]19,255,10
790 [158]TX[170]15,12,22,11[170]XX,11[170]XX,255,7
800 [158]TX[170]24,X,Y[170]7,"ORTANTANTANTANTANTAN^
810 FOR N=8 TO 17
820 SYSTX+24,X,Y+N,"[221][146][159]  ":IFN<10 THEN PRINT" ";
830 PRINTSTR$(N);" [221]":NEXT
840 SYSTX+24,X,Y+N,"[173][192][192][192][192][192][192][189]
850 [158]TX[170]48,Y[170]8,X[170]1,X[170]6,10,3,13,133
860 [139] F%[178]0 [167] [142]
870 DX[178]F%[170]7
880 [139] XX[178]1 [167] DV[178]DX:[142]
890 DD[178]DX:[142]
900 [143] *** END PROGRAM ***
910 [158]TX[170]15,0,39,23,23,160,8:[151] 198,0
920 [158]TX[170]24,7,23,"FOR(null)UIT!? ATNRE YOU SURE? ((null)/(null))
930 GET A$:IF A$="" THEN 930
940 IF A$<>"Y" AND A$<>"[217]" THEN RETURN
950 GOSUB 1050:POKE788,49:SYSML+30,0:PRINT"[147]"
960 GOTO 40000
970 REM *** ENABLE FONT ***
980 POKE 53265,PEEK(53265)AND239
990 POKE 56578,PEEK(56578)OR3
1000 POKE 56576,PEEK(56576)AND252
1010 POKE 53272,PEEK(53272)AND15
1020 POKE 648,192
1030 POKE53272,(PEEK(53272)AND240)OR2
1040 POKE 53265,PEEK(53265)OR16:RETURN
1050 REM *** NORMAL FONT ***
1060 POKE 53265,PEEK(53265)AND239
1070 POKE 56578,PEEK(56578)OR3
1080 POKE 56576,(PEEK(56576)AND252)OR3
1090 POKE 53272,(PEEK(53272)AND15)OR16
1100 POKE 648,4
1110 POKE53272,(PEEK(53272)AND240)OR6
1120 POKE 53265,PEEK(53265)OR16:RETURN
1130 REM *** HI-RES SCREEN ***
1140 POKE 53265,PEEK(53265)AND239
1150 POKE 56578,PEEK(56578)OR3
1160 POKE 56576,(PEEK(56576)AND252)OR2
1170 POKE 53272,(PEEK(53272)AND15)OR112
1180 POKE 53265,PEEK(53265)OR32
1190 POKE 53272,PEEK(53272)OR8
1200 REM MAKE SCREEN PRESENTABLE
1210 POKE 53265,PEEK(53265)OR16:RETURN
1220 REM *** TEXT SCREEN ***
1230 POKE 53265,PEEK(53265)AND239
1240 POKE 56578,PEEK(56578)OR3
1250 POKE 56576,PEEK(56576)AND252
1260 POKE 53272,PEEK(53272)AND15
1270 POKE 53265,PEEK(53265)AND223
1280 POKE 53272,PEEK(53272)AND247
1290 POKE 53265,PEEK(53265)OR16:RETURN
1300 REM *** LOAD DOODLE ***
1310 IF DD<>DV THEN 1350
1320 SYSTX+15,0,39,23,23,160,8
1330 SYSTX+24,4,23,"[129][208]UT DISK INTO DRIVE"+STR$(DV)+", ANY KEY.":POKE198,0
1340 GET A$:IF A$="" THEN 1340
1350 CLOSE15:OPEN15,DV,15:CLOSE15:IF ST=0 THEN 1370
1360 RETURN
1370 SYSTX,"$0:DD*,S.*",DV,40960,1,1,15,7,4
1380 IF VAL(E$) THEN 730
1390 IF F$="" THEN RETURN
1400 LA=23552:IF LEFT$(F$,2)="S." THEN LA=24576
1410 SYSTX+15,0,39,23,23,160,8
1420 SYSTX+24,11-LEN(F$)/2,23,"[129][204]OADING"+QT$+F$+QT$+","+STR$(DV)+"..."
1430 SYSTX+42,"R:"+F$+"="+F$,DV
1440 IF VAL(E$)=63 THEN 1460
1450 GOTO 730
1460 GOSUB 1130:SYSTX+30,F$,DV,LA
1470 IF VAL(E$)>19 THEN GOSUB 1220:GOTO 730
1480 IF LEFT$(F$,2)="S." THEN SYSML+6,0,39,0,24,1,6
1490 POKE 198,0:WAIT197,64,64::GET A$:GOSUB 1220:RETURN
1500 REM *** TO DOODLE ***
1510 GOSUB 1130:POKE 198,0
1520 SYSTX+45,"[133][134][135][136]H[200]Q[209]_
1530 [145] F% [137] 1540,1520,1520,1220,1720,1720,1220,1220,1220
1540 MK[178]1
1550 [158]ML[170]3,XG,XG[170]10,YG,YG[170]6
1560 [129]N[178]1[164]50:[161] A$:[139] A$[178]"" [167] [130]:[137] 1580
1570 [137] 1600
1580 [139] MK[178]1 [167] MK[178]2:[137] 1550
1590 [137] 1540
1600 [139] MK[178]1 [167] [158]ML[170]3,XG,XG[170]10,YG,YG[170]6
1610 [139] A$[178]"" [175] XG[179]29 [167] XG[178]XG[170]1:[137] 1540
1620 [139] A$[178]"CMD" [175] XG[177]0 [167] XG[178]XG[171]1:[137] 1540
1630 [139] A$[178]"" [175] YG[179]18 [167] YG[178]YG[170]1:[137] 1540
1640 [139] A$[178]"ON" [175] YG[177]0 [167] YG[178]YG[171]1:[137] 1540
1650 [139] A$[178]"INPUT" [167] 1520
1660 [139] A$[178]"DIM" [167] [141] 1880:[141] 1130:[137] 1540
1670 [139] A$[178]"READ" [167] [141] 2130:[141] 1130:[137] 1540
1680 [139]A$[178]"LET"[176]A$[178]"Q"[176]A$[178]"(null)"[176]A$[178]"_"[167] 1220
1690 [139] A$[178]"H" [176] A$[178]"LEFT$" [167] [141] 3010:[137] 1540
1700 [139] A$[178]"" [167] XG[178]0:YG[178]0:[137] 1540
1710 [137] 1540
1720 [141] 3010:[137] 1520
1730 [143] *** DIRECTORY ***
1740 [139] DV[178]DD [167] DR[178]DV:[137] 1810
1750 [158]TX[170]15,0,39,23,23,160,8
1760 [158]TX[170]24,7,23,"FOR((null))OURCE OR (STR$)ESTINATION?":[151] 198,0
1770 [161] A$:[139] A$[178]"" [167] 1770
1780 [139] A$[178]"S" [176] A$[178]"(null)" [167] DR[178]DV:[137] 1810
1790 [139] A$[178]"D" [176] A$[178]"STR$" [167] DR[178]DD:[137] 1810
1800 [137] 1770
1810 [160]15:[159]15,DR,15:[160]15:[139]ST[178]0 [167] 1830
1820 [142]
1830 [153]"WAITOPENLOAD";:[158]ML[170]18,"$0:*",DR,5:[158]TX[170]42,"",DR:[139] [197](E$)[178]0 [167] 1850
1840 [153]"FOR"[170]E$:TM[178]1000:[137]700
1850 [151] 198,0
1860 [161] A$:[139] A$[178]"" [167] 1860
1870 [142]
1880 [143] *** BM ==> PS ***
1890 [141] 1220:[153]"OPENLOAD*** PEEKRIGHT$(null)-(null)ATN(null) TO (null)(null) ***
1900 XT=PEEK(211):YT=PEEK(214)
1910 SYSML+15,XG,YG,62464+35*8,1:POKE 53272,(PEEK(53272)AND240)OR12
1920 SYSML+21,28,5,128+35:SYSTX+15,28,38,5,11,255,15
1930 SYSTX+24,27,4,"[149]@ABCDEFGHIJKL
1940 [158]TX[170]15,27,27,5,10,141,9:[158]TX[170]15,39,39,5,10,142,9
1950 [158]ML[170]27,239,129,9
1960 [151] 211,XT:[151] 214,YT:[158] 58732
1970 [153]"CONTWAITASCILENAME: ";:[158]TX[170]66,8,7,16:[153]:[139] W$[178]"" [167] 2120
1980 [139] DV[179][177]DD [167] XT[178][194](211):YT[178][194](214):[137] 2020
1990 [153]"DEF(null)UT DISK IN DRIVE"DD"CMD,":[153]"PRESS SPACE.":[151] 198,0
2000 XT[178][194](211):YT[178][194](214)
2010 [161] A$:[139] A$[178]"" [167] 2010
2020 [158]TX[170]15,27,39,4,11,32,3:[151] 53269,0
2030 [160]15:[159]15,DD,15:[160]15:[139] ST [167] 2110
2040 [158]TX[170]42,"I0",DD:[158]ML[170]9,XG,YG,1024
2050 [158]TX[170]42,"R0:"[170]W$[170]"="[170]W$,DD:[139][197](E$)[178]62 [167] 2070
2060 [151]211,XT:[151]214,YT:[158]58732:[153]"FOR"[170]E$:TM[178]1000:[141]700:[137]2110
2070 [151]211,XT:[151]214,YT:[158]58732:[153]"(null)AVING...":A$[178]"0:"[170]W$
2080 [158]57812A$,DD:[151]172,0:[151]173,4:[151]780,172:[151]781,60:[151]782,6
2090 [158]65496:[158]TX[170]42,"",DD:[139] [197](E$)[178]0 [167] 2110
2100 [151]211,XT:[151]214,YT:[158]58732:[153]"FOR"[170]E$:TM[178]1000:[141] 700
2110 [158]TX[170]42,"I0",DD
2120 [151]53272,([194](53272)[175]240)[176]2:[151]53269,0:[142]
2130 [143] *** PS ==> BM ***
2140 [141] 1220:[153]"OPENLOAD*** (null)(null) TO PEEKRIGHT$(null)-(null)ATN(null) ***
2150 IF DD<>DV THEN 2180
2160 PRINT"[150][208]UT DISK INTO DRIVE"DV"[157], PRESS SPACE.":POKE 198,0
2170 GET A$:IF A$="" THEN 2170
2180 CLOSE15:OPEN15,DV,15:CLOSE15:IF ST THEN RETURN
2190 SYSTX,"$",DV,40960,5,5,15,5,4
2200 IF VAL(E$) THEN PRINT"[147][129]"E$:TM=1000:GOTO 700
2210 IF F$="" THEN RETURN
2220 SYSTX+30,F$,DV,40960
2230 IF VAL(E$) THEN PRINT"[147][129]"E$:TM=1000:GOTO 700
2240 SYSTX+54,40960,40960+572,1024
2250 SYSML+12,XG,YG,1024
2260 SYSML+6,XG,XG+10,YG,YG+6,1,6:RETURN
2270 REM *** DISK COMMANDS ***
2280 PRINT"[146][154][147][197]NTER $WILDCARD FOR DIRECTORY.
2290 [153]"#STR$ TO CHANGE TO DEVICE STR$."
2295 [160]15:[159]15,DC,15:[160]15:[139]ST[167]2310
2300 [158]TX[170]42,"",DC:[139][197](E$)[179][177]0[167][153]"FOR"[170]E$
2310 [153]"FOR"DC"CMD>SYS";:[158]TX[170]66,7,14,36
2320 [139] W$[178]"" [167] [142]
2330 [139] [200](W$,1)[178]"$" [167] 2380
2340 [139] [200](W$,1)[178]"S" [176] [200](W$,1)[178]"N" [167] 2410
2350 [139] [200](W$,1)[178]"#" [167] 2460
2360 [160]15:[159]15,DC,15:[160]15:[139]ST[167][153]:[153]"DEF(null)O DEVICE":[137]2310
2370 [158]TX[170]42,W$,DC:[153]:[153]"FOR"E$:[137] 2310
2380 [160]15:[159]15,DC,15:[160]15:[139]ST[167][153]:[153]"DEF(null)O DEVICE":[137]2310
2390 [153]"OPEN":[158]ML[170]18,W$,DC,5:[153]"ON":[158]TX[170]42,"",DC:[139] [197](E$)[178]0 [167] 2310
2400 [153]"FOR"[170]E$:[137] 2310
2410 [153]:[153]"FORATNRE YOU SURE?CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[151] 198,0
2420 [161] A$:[139] A$[178]"" [167] 2420
2430 [153]"             ONONON"
2440 [139] A$[178]"Y" [176] A$[178]"(null)" [167] 2360
2450 [153]:[137] 2310
2460 [153]:A[178][197]([201](W$,[195](W$)[171]1)):[139] A[179]8 [176] A[177]17 [167] 2310
2470 [160]15:[159]15,A,15:[160]15:[139] ST [167] 2310
2480 DC[178]A:[137] 2310
2490 [143] *** SAVE DOODLE ***
2500 [153]"OPENLOAD*** (null)AVE STR$(null)(null)STR$(null)VAL! ***
2510 PRINT"[154][198]ILENAME: DD";:SYSTX+66,2,10,14:PRINT:IF W$="" THEN RETURN
2520 W$="DD"+W$:IF DD<>DV THEN 2550
2530 PRINT"[208]UT DISK INTO DRIVE"DD"[157], PRESS SPACE.":POKE 198,0
2540 GET A$:IF A$="" THEN 2540
2550 CLOSE15:OPEN15,DD,15:CLOSE15:IFSTTHEN RETURN
2560 SYSTX+42,"R:"+W$+"="+W$,DD
2570 IFVAL(E$)=62 THEN 2590
2580 PRINT"[129]"E$:TM=1000:GOTO 700
2590 PRINT"[211]AVING "QT$W$QT$","DD"[157]...
2600 [158]57812W$,DD:[151]172,.:[151]173,92:[151]780,172:[151]781,64:[151]782,127
2610 [158]65496
2620 [158]TX[170]42,"",DD:[139] [197](E$)[178]0 [167] [142]
2630 [153]"FOR"E$:TM[178]1000:[137] 700
2640 [143] *** INSTRUCTIONS ***
2650 [151] 211,0:[151]214,4:[158]58732
2660 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
2670 FORN=1TO15:PRINT"[221]                                    [221]":NEXT
2680 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
2690 [151] 211,10:[151]214,6:[158]58732:[153]"*** DEFRIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) ***
2700 PRINT"[159] [208][211][195][207][206] [154]WILL CONVERT A SELECTED
2710 [153]"SECTION OF A OPENSTR$(null)(null)STR$(null)VAL!CONT OR OPENASCCHR$(null)CONT SCREEN
2720 PRINT"INTO A 3-BLOCK [159][208][210][201][206][212] [211][200][207][208][154] GRAPHIC.
2760 [153]"(null)OU MAY ALSO CLIP OPEN(null)(null)RIGHT$(null)(null) (null)LEFT$(null)(null)CONT-SIZE
2770 PRINT"GRAPHICS FROM A [194][201][212]-[205][193][208] SCREEN.
2772 [153]" (null)HEN YOU ARE VIEWING THE PEEKRIGHT$(null)-(null)ATN(null)
2774 PRINT"SCREEN, PRESS [159][200][154] TO SEE FURTHER
2776 [153]"INSTRUCTIONS.
2800 PRINTTAB(12)"[193]NY KEY FOR MENU.":POKE 198,0
2810 GET A$:IF A$="" THEN 2990
2820 RETURN
2830 REM *** CREDITS ***
2840 Y=3:POKE 211,0:POKE214,Y:SYS58732
2850 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
2860 [129]N[178]1[164]18:[153]"(null)                                    (null)":[130]
2870 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
2880 POKE 211,12:POKE214,Y+2:SYS58732:PRINT"*** [150] [195][210][197][196][201][212][211] ***
2890 [153]"OPEN(null)(null)LEN(null)(null) (null) 3.0 111596CONT WAS WRITTEN BY
2900 PRINT"[205]ICHAEL [202]. [199]ULYAS.
2910 [153]"OPEN(null)OOBOX 9000 CONT WAS WRITTEN BY
2920 PRINT"[202]EFFREY [204]. [202]ONES.
2930 [153]"ASCONTS WERE DESIGNED WITH OPENASCONT VALDITCONT
2940 PRINT"WRITTEN BY [210]ICHARD [203]EPHART.
2950 [153]"(null)(null) SUBROUTINES WRITTEN WITH OPENVALSTR$ATN(null)(null)64
2960 PRINT"[154]([159][210]OCK'S [193]SSEMBLER[154],) WRITTEN BY
2970 [153]"(null)OBERT (null)OCKEFELLER.
2980 PRINTTAB(12)"[193]NY KEY FOR MENU.":POKE 198,0
2990 GET A$:IF A$="" THEN 2990
3000 RETURN
3010 REM *** HELP ***
3020 GOSUB1220:PRINT"[147]"TAB(11)"*** [154][200][197][204][208] [211][195][210][197][197][206] ***[159]
3030 [153]"SYS ASC1 OPENWAIT (null)OGGLE CURSOR ON/OFF.
3040 PRINT"[213]SE THE [158] [195][210][211][210] KEYS [146][159] TO MOVE THE CURSOR
3050 [153]"AROUND THE STR$(null)(null)STR$(null)VAL! SCREEN.
3060 PRINT"[158] [198]3 [159][146] [211]AVE THE SECTION OF [196][207][207][196][204][197]!
3070 [153]"SCREEN UNDER THE CURSOR TO DISK AS A
3080 PRINT"[208][210][201][206][212] [211][200][207][208] THREE-BLOCK GRAPHIC.
3090 [153]"SYS ASC5 OPENWAIT '(null)RINT' TO THE STR$(null)(null)STR$(null)VAL! SCREEN,
3100 PRINT"UNDER THE CURSOR, A THREE-BLOCK [208][211]
3110 [153]"GRAPHIC FILE FROM DISK.
3120 PRINT"[158] [198]7 [159][146] [210]ETURN TO THE [205]AIN [205]ENU.
3130 [153][163]12)"(null)RESS ANY KEY...
3140 POKE198,0
3150 GET A$:IF A$="" THEN 3150
3160 GOSUB 1130:RETURN
10000 D=PEEK(186):N$="B.PSCON":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
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[208] [211] [195] [207] [206]
60040 Z$(2)[178]"BY (null)ICHAEL MID$. CHR$ULYAS
60050 Z$(4)="([195]) 1997 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT
60092 FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN