1 REM HELLO
5 IFPEEK(51201)<>12ORPEEK(51202)<>200ORPEEK(52222)<>5THEN7
6 GOTO10
7 LOAD"ROUTINES V4",8,1
10 V=53248:S=V+1024:SYS52176:              POKE56,160:POKE57,0
20 PRINT"[147]":FORX=STOS+24:POKEX,0:NEXT
21 FORX=1024TO1034:READA:POKEX+54272,PEEK(53281)AND15:POKEX,A:NEXT
22 DATA169,228,141,8,3,169,167,141,9,3,96
23 SYS1024 :REM  __ WEDGE DEACTIVATOR
25 Q$="'"
30 OPEN8,8,8,"#":OPEN15,8,15,"UA:8 0 18 0":PRINT#15,"B-P:8 154"
40 GET#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$:CLOSE8:CLOSE15
45 IFI1$<>"\"THENPOKE65533,.:POKE65534,.:POKEV+32,.:GOTO60
50 POKE65533,VAL(N1$+N2$):POKE65534,VAL(S$)
60 CD$="":SI=USR(65534)
80 BS$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
90 SP$="                                       [160]"
120 DIMIX$(22,1),IX(22,1),C%(4):FORI=1TO4:READC%(I):NEXT
121 DATA2,5,6,7
150 POKEV+33,1:POKEV+32,C%(SI)
160 READIN$:TT$="[204][207][193][196][211][212][193][210][160][206]UMBER "+IN$
170 PRINT"[144]";SP$;"";TAB(19-LEN(TT$)/2);TT$:PRINT""
190 FORCO=1TO22
192 FORC1=.TO1
194 READIX$(CO,C1),IX(CO,C1)
196 IFIX$(CO,.)="!"THENCX=CO-1:CO=22:C1=3
198 NEXTC1
200 NEXTCO
210 PRINT"[150]";
230 FORCO=1TOCX
240 POKE646,C%(IX(CO,.))
250 IFSI=IX(CO,.)THENPRINT"";
251 IFIX(CO,.)<>IX(CO-1,.)THENPRINT"[211]IDE"IX(CO,.)"[146] ";:GOTO290
252 PRINT"      [146]  ";
290 PRINTCHR$(CO+96)"[160]= "IX$(CO,.);
292 PRINTSPC(22-LEN(IX$(CO,.)));
295 IFSI=IX(CO,.)THENPRINT"";
300 IFIX(CO,.)<>IX(CO-1,.)THENPRINT"[211]IDE"IX(CO,.)"[146][157]";:GOTO310
304 PRINT"      [146]";
310 NEXT
320 PRINTLEFT$(CD$,25)"[144][215]HICH "SPC(24)"[216][146] TO EXIT";BS$;
329 K$="?"
330 KS$=K$:B$="[157]":SP$(0)=""+K$+"[146]":SP$(1)="[146]"+K$+"[146]":PRINTSP$(SP+1);B$;:SP=NOTSP
331 GETK$:FORZD=1TO222:NEXT:IFK$<" "ORK$>"Z"THENK$=KS$:GOTO330
340 IFK$="X"THEN19000
350 IFK$<"A"THEN330
355 IFK$>CHR$(CX+64)THEN330
360 PRINTCHR$(ASC(K$)OR32);"[157]";
380 K=ASC(K$)AND31
390 IFK<=CXTHEN30000
400 GOTO330
9999 END
10000 D=PEEK(186):N$="HELLO":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
11000 DATA17
12000 DATA"[208]IXEL [208]AGE",1,PIXEL PAGE,
12001 DATA"[195]ONTENTS [205]AP",1,CONTENTS MAP,
12004 DATA"[208]AYLOAD [208]ROGRAMS",1,PAYLOAD,2
12005 DATA"[208]OWER[208]LAY [208]ROGRAMS",1,PAYLOAD,1
12006 DATA"[195][207][205][193][204][160][212]UTOR",1,COMAL TUTOR,
12008 DATA"[208]APERLESS [208]AGES",2,PRESENTER,1
12009 DATA"[201]NFLUX",2,PRESENTER,2
12010 DATA"[211]TEINMAN [212]EMPLATE",2,SPREADSHEET,2
12011 REM                                   DATA"[205]ATH [210]EFLECTIONS",2,PRESENTER,3
12012 DATA"[198]OR [217]OUR [201]NFORMATION",2,PRESENTER,4
12040 DATA"[198]EEDBACK [196]ISK [205]AKER",2,F.B MAKER.1,
15999 DATA!,,!,
18000 RETURN
19000 PRINT"[147][144]   [204][207][193][196][211][212][193][210][160]IS NOT PUBLIC DOMAIN."
19005 PRINT"   [204][207][193][196][211][212][193][210][160]IS UNPROTECTED FOR YOUR"
19010 PRINTTAB(28);"CONVENIENCE.":PRINT"[215]E WANT YOU TO BE ABLE";
19015 PRINT" TO COPY, MODIFY, AND LEARN FROM THE";
19017 PRINT" PROGRAMS ON [204][207][193][196][211][212][193][210].":PRINT:PRINT"[208]LEASE RESPECT THIS POLICY:"
19020 PRINT:PRINT"[196]O NOT ALLOW UNAUTHORIZED COPIES":PRINTTAB(29)"TO BE MADE."
19022 PRINT:PRINT"([211]CHOOLS MAY MAKE A COPY FOR EACH [195]-64.)"
19025 PRINT:PRINT"[212]YPE [210][213][206] THEN PRESS <[210][197][212][213][210][206]> TO RETURN  TO [204][207][193][196][211][212][193][210]."
20000 END
23000 POKE646,C%(VAL(S$)):PRINT"[147][212]HE DISKETTE CURRENTLY IN YOUR DRIVE IS"
23010 IFI1$<>"\"THENPRINT"     NOT A REGULAR [204][207][193][196][211][212][193][210] ISSUE.":GOTO24000
23020 PRINT"         SIDE "S$" OF [204][207][193][196][211][212][193][210][160]"MID$(STR$(VAL(N1$+N2$)),2)"."
24000 POKE646,C%(IX(K,.)):PRINT""TAB(17-LEN(IX$(K,.))/2);Q$;IX$(K,.);Q$;" IS ON"
24010 PRINT"         SIDE"IX(K,.)"OF [204][207][193][196][211][212][193][210] "IN$"."
24020 PRINT"[144]        [201]NSERT THAT SIDE, PLEASE"
24030 PRINTSPC(19)"&"
24040 PRINTSPC(12)"PRESS SPACE BAR"
24050 PRINT"   OR PRESS [210][197][212][213][210][206][146][160]TO RETURN TO MENU"
24055 PRINT:PRINT"  ([201] SUGGEST YOU TURN THE DISK OVER.)
24060 [151]198,.:[146]198,1:[161]K$:[139]K$[179][177]" "[167][141]63002:[141]63000:[138]
24080 [153]
30000 [143]     READ SIDE INDICATOR
30002 [141]63000:[141]63002
30003 S$[178][196](IX(K,.)):[137]30010
30004 [159]8,8,8,"#":[159]15,8,15,"UA:8 0 18 0":[152]15,"B-P:8 154"
30005 [161]#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$,I2$:[160]8:[160]15
30010 [151]646,C%(IX(K,.)):[151]V[170]32,C%([197](S$))
30020 [139][197](S$)[179][177]IX(K,.)[167] 23000
30025 [151]65535,10[172][197](S$)[170]IX(K,1)
30030 [139]IX$(K,1)[178]"PRESENTER"[175][194](597)[179][177]0[167][151]6400,0:[151]44,25:[138]
40000 [151]53281,.:[153]"LOAD(null)AUNCHING "IX$(K,.);"STOP";
40010 [151]599,0
40015 [129]I[178]0[164]23:[151]S[170]I,0:[130]
40016 [151]198,0:[151]631,13:[151]632,13
40017 [139] IX$(K,1)[179][177]"PRESENTER"[167][151]597,0:[137]40030
40020 [153]"STOPL(null)"[199](34)IX$(K,1)[199](34)",8":[153]"RUN"
40025 [151]6400,0:[151]44,25:[151]198,2:[128]
40030 [153]"LOAD"[199](34);IX$(K,1);[199](34)",8":[153]"RUN"
40040 [151]631,13:[151]632,13:[151]198,2:[151]65535,10[172][197](S$)[170]IX(K,1):[128]
63000 [129]I[178].[164]24:[151]S[170]I,.:[130]:[151]S[170]1,100:[151]S[170]2,100:[151]S[170]5,10:[151]S[170]6,2
63001 [151]S[170]24,15:[151]S[170]4,33:[129]DL[178]1[164]600:[130]:[151]2[170]4,32:[142]
63002 [129]I[178]0[164]24:[151]S[170]I,0:[130]:[151]S[170]1,40:[151]S[170]2,40:[151]S[170]5,10:[151]S[170]6,2
63003 [151]S[170]24,15:[151]S[170]4,33:[129]DL[178]1[164]600:[130]:[151]S[170]4,32:[142]