1 REM HELLO
5 IFPEEK(49152)<>76ORPEEK(51200)<>76ORPEEK(52016)<>32ORPEEK(52080)<>173THEN7
6 IFPEEK(52176)=169THEN8
7 LOAD"ROUTINES M3",8,1
8 V=53248:S=V+1024
10 V=53248:S=V+1024:SYS52176
20 PRINT"[147]":FORX=STOS+24:POKEX,0:NEXT
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
11000 DATA4
12000 DATA "[195]OVER [208]AGE",1,COVER PAGE,
12010 DATA "[208]APERLESS [208]AGES",1,PRESENTER,1
12015 DATA"[201]NFLUX",1,PRESENTER,2
12020 DATA"[211]PECTRUM",1,SPECTRUM,
12040 DATA"[208]AYLOAD [208]ROGRAMS",2,PAYLOAD,
15999 DATA!,,!,
18000 RETURN
19000 PRINT"[147][144]   [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.)"
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 [137]31000
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]
31000 IX$[178]"LS004"[170][196](IX(K,.))
31002 DV[178][194](186):[139]DV[179]8[167]DV[178]8
31004 [159]15,DV,15,"I0":[160]15
31006 [159]15,DV,15,"R0:"[170]IX$[170]"="[170]IX$
31008 [132]15,N1:[160]15
31010 [139]N1[178]62[167]23000
31012 [151]65535,10[170]IX(K,1)
40000 [151]53281,.:[153]"LOAD(null)AUNCHING "IX$(K,.);"STOP";
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]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]
60000 D[178][194](186):N$[178]"HELLO":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[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]