L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`,208,239,96:REM LOAD SOUND ROUTINE"E&ֈLNUM;:40200:OK0ı: ERROR&"POKE(SOUND+18),"X":POKE (SOUND+1),"Y":CALL SOUND":&@*****&JLNUM;:A$(MSENT$,2,1):(MSENT$)440150&TSIZESIZEL:MSENT$(MSENT$,SIZE)&^A$"S"40080g'h"ONERR GGOTO"LNUM20":REM PROCEDURE "MSENT$6%uLNUMLNUM10:Q%"yY(MSENT$):Y240230\%*****o%ˆSOUND135040%Lj"1949 SOUND=778:FOR K= 0 TO 21:READX:POKE(SOUND+K),X:NEXTK"#&̈1950"DATA 169,20,133,7,173,48,192,136,208,4,198,7,240,7,202,208,246,162,23K)0:<$XuNL(10)1ĺCPROC10" GOTO "LNUM: DIRECT END JUMPT$buNL(10)0:CPROCLNUMd$luNP030090$vuK1NP:NP$(K,0)MSENT$ĺLNUM" STOP:REM DUP PROCEDURE "SENT$:BADBAD1:1059:1059:$u$uNPNP1#%uNP$(NP,0)MSENT$:NP$(NP,1)(LNUM):LNUM"#qi#qNEEDNEED1:NEED$(NEED,0)MSENT$:NEED$(NEED,1)(LNUM):: STORE THE NOT-FOUND PROCEDURE LABEL#q STORE NOT FOUND PROCEDURE#0u*****#:uK19: *-COMMAND#DuNL(K)1ĺCPROCK:" STOP: REM NO LABEL "K":BAD=BAD+1:CALL-1059:CALL-1059$NuNL(DBAD1:1059:1059:0"pqLNUM" GOTO "CPROCK]"zqNL(K)2NL(K)1: SHOW THAT LABEL USEDc"q"qMSENT$"E"ĺLNUM" GOTO "CPROC10:NL(10)2:: JUMP TO AN END"qNP029110: FIND THE PROCEDURE"qK1NP:NP$(K,0)MSENT$ĺLNUM" GOTO "NP$(K,1):OCEDURE?J!mLNUM30000ĺLNUM" PRINT D$"QU$"RUN HELLO"QU$:LNUM3000010:!mLNUM;"RETURN":LNUM1000((LNUM1000)1000)10:!Hq*****!RqK(MSENT$): J INSTRUCTION!\qK129070: FOUND PROCEDURE CALL"fqK9ĺLNUM" STOP: REM BAD LABEL "SENT$:BAORE THE NOT-FOUND PROCEDURE LABEL, `m*****X jmK19: E-INSTRUCTION CLOSE OFF LABELS tmNL(K)1ĺCPROCK;"STOP: REM NO LABEL "K:BADBAD1:1059:1059 ~mNL(K)0: mNL(10)2ĺCPROC10" GOTO "LNUM:NL(10)3: DIRECT END JUMPS!m END OF MAIN PRfM$;:HANG1ĺQU$" "QU$";":26220(bfRlfREVERSE1LNUMLNUM10:LNUM"NORMAL"Xvfcxi*****iNP0ī27040: U-COMMANDiK1NP:NP$(K,0)MSENT$ĺLNUM"GOSUB "NP$(K,1):iK! iNEEDNEED1:NEED$(NEED,0)MSENT$:NEED$(NEED,1)(LNUM):: ST WATCH THE QUOTES5f(MSENT$,1)"$"M$QU$:QU1pfK1SIZE:M1$(MSENT$,K,1):M1$"$"M$M$M1$:26170&fQU1QU0:M$M$QU$:261700fQU1:M$M$M1$QU$:fDf(SENT$,1)"$"QU1M$M$QU$:26200Nf(SENT$,1)"$"QU0M$M$"$""XIeMSENT$(MSENT$,(MSENT$)3):MSENT(MSENT$):MSENT1MSENT2026090_e"VTAB "MSENT3:e"STOP:REM SYNTAX "SENT$:BADBAD1:1059:1059:eLSIZEĺ"PRINT":: BLANK LINEeSIZESIZEL:MSENT$(MSENT$,SIZE)fN1:M$QU$:"PRINT";:QU1:IGNORABLE&\bNN1:M$(N)"":M1$"$":1e*****`eHANG0:REVERSE0:LNUM;: T INSTRUCTIONoeL226100eA$(MSENT$,2,1):A$"C"ĺ"HOME:";:26100eA$"I"ĺ"INVERSE:";:REVERSE1:26100eA$"H"HANG1:26100e(MSENT$)4A$"V"26090NUMLNUM10:$ b HANDLE VARIABLES8*bKK1:KSIZEıq4bK1KSIZE:M1$(MSENT$,K1,1):M1$","KK11:25170>bM1$"$"KK12:25170HbM$(N)M$(N)M1$::KK11 RbM$(N)M$(N)"$":(M$(N))1M$(N)"":M1$"$":: PROBABLY A SYNTAX ERROR THAT IS aM1$"$"İ25130:25070.aM$(N)M$(N)M1$Xa:M1$"$"M$(N)QU$M$(N)QU$:NN1iaNN1:N0ıbLNUM" FLAG=0":LNUMLNUM10 bJPTLNUMN10: JUMP WHEN MATCHED bK1N:LNUM" CHECK$= "M$(K)":GOSUB 10: IF FLAG=1 THEN "JPT:LNUMLNUM10::L": ADD $ IF NEEDED3^"GOSUB 70:"MSENT$"=ANS$":>a*****zaMSENT$""ĺLNUM"FLAG=1":: EMPTY MATCH ALWAYS MATCHESaN1:M$(1)""aK1SIZE: FIND WHAT NEEDS MATCHINGaM1$(MSENT$,K,1):M1$","M$(N)QU$M$(N)QU$:NN1:M$(N)"":25070 D$;"QU$"RUN "MSENT$QU$:: L=COMMAND1]*****o]LNUM"PRINT BELL$;:";:SIZE0ĺ"GOSUB70":: A-COMMAND]SIZE3(MSENT$,1)"$"ĺ" STOP: REM SYNTAX "SENT$:BADBAD1:1059:1059:]MSENT$(MSENT$,SIZE1):(MSENT$,1)"$"MSENT$MSENT$"$EM "MSENT$:: R-COMMAND#R*****eRM1$"":COUNT1(MSENT$):M$(MSENT$,COUNT,1):M$"'"M$QU$RM1$M1$M$:: CHANGE ' TO "&RLNUM;M1$:: B-COMMANDU*****ULNUM"FLAG=0:IF("MSENT$")THEN FLAG=1":: X COMMANDY*****&YLNUM"PRINT2::"A";::" C D HELP I LI P QUIT RA S":TEMP$"":LCURRPRESENTz'PRESENTMAXİ10750:: CAN'T ADD MORE LINE'1010:PREV$TEMP$:130:TEMP$""TEMP$"DONE"ı'2010:OK010220: INVALID LINE(PRESENTPRESENT1:COMM$(PRESENT)TE INVERSE USE IN T-INSTRUCTIONo5H:10:"PILOT-BASIC CONVERTER"::"M.R.SMITH FEB 1982"BELL$BELL$:J1LW:J}5R:10:2050*****5::10:"CHECK SYNTAX ONLY "BELL$;:A$:(A$,1)"Y"PFLAG1:5D(A$,1)"N"ĺBELL$BELL$:620105NPFLAG0:ME$"": PILOT.NAME$ IS CURRENT PROGRAM NAME_4PENAME$"": EXEC.ENAME$ IS CURRENT OUTPUT FILE4ZPFLAG0: PRINTS TO SCREEN AS OUTPUT WHEN SET4dLW2000: LOOP WAIT FOR LOOPS4nSOUND0: CONTROLS LOADING OF SOUND ROUTINES5xREVERSE0: CONTROLS: DUMMY VARIABLE USED IN M-INSTRUCTIONO3NP0: NUMBER OF PROCEDURES DEFINED}3(NP$(30,1): PROCEDURE NAMES AND LINENUMS32NEED0: UNDEFINED PROC3 IN T INSTRUCTION2 M$(30): DUMMY STORAGE USED IN M INSTRUCTION'3M1$""D SENTENCE'1SIZE0: LENGTH(MSENT$)M1LNUM1900: CURRENT LINE NUMBERw1J0:K0:L0:N0:X0: DUMMY VARIABLES1K110:NL(K)0:: LABELS IN USE1CPROC1900: CURRENT PROCEDURE1A$"": DUMMY VARIABLE 2FLAG0: FLAG CONTROL OF Y/N I20"FOR K = 0 TO 9 : READ X: POKE (768 + K),X:NEXTK"w0Tĺ1930"DATA104,168,104,166,223,154,72,152,72,96:REM ONERR PATCH"0hĺK" HOME: GOTO 1900":00`*****0j NAMES AND INITIALIZATION0tSENT$"": CURRENT PILOT SENTENCE 1~MSENT$"": MODIFIE6)QU$l/ĺ"60010 VTAB10:PRINT "QU$"GENERATED USING PILOT->BASIC"QU$":PRINT :PRINT"QU$"M. SMITH FEB 1982"QU$/"ĺ"60020 FOR J=1 TO 3000:NEXTJ"/,K60030/6ĺK"BELL$=CHR$(7): REM BELL CHARACTER":KK10/@ĺK"D$ =CHR$(4):REM DISK CONTROL":KK1030Jĺ19R$(8);:ANS$=LEFT$(ANS$,LEN(ANS$)-1):GOTO80".ú"120 IF A$=CHR$(24)THENFORJ=1TOLEN(ANS$):PRINTCHR$(8)"QU$" "QU$"CHR$(8);:NEXT:GOTO70".ú"130ANS$=ANS$+A$:GOTO80".ĺ"1900 GOTO 1920":LNUM2000/ĺ"60000 HOME:VTAB 6:PRINT"QU$"LESSON "(NAME$,(NAME$)RETURN"-ú"70ANS$="QU$QU$?-ú"80GETA$:IFA$="QU$QU$"THEN80"p-ú"85 IF((LEN(ANS$)=0)AND(A$=CHR$(8)))THEN80"-ú"90PRINTA$;:IFA$=CHR$(13)THENRETURN"-ú100"IF(A$=CHR$(8)ORA$=CHR$(24))ANDLEN(ANS$)<2THEN70"+.ú"110IFA$=CHR$(8)THENPRINT"QU$" "QU$"CH=0 OR LCHECK=0 OR LANS < LCHECK THEN RETURN"X,ú"30 IF ANS$=CHECK$ THEN FLAG=1:RETURN",ú"40 FOR L1=1 TO LANS-LCHECK+1: FOR L2=1 TO LCHECK",ú"50 IF MID$(CHECK$,L2,1)<>MID$(ANS$,L1-1+L2,1)THEN NEXT L1:RETURN"-ú"60 NEXT L2:FLAG=1:L1=1000:NEXTL1:LAG1ı'+níPFLAG0ĺD$;"WRITE "ENAME$+xú"NEW":"1SPEED=160: POKE34,0: HOME : INVERSE : PRINT"QU$"LESSON "(NAME$,(NAME$)6)QU$":VTAB4:POKE34,3:NORMAL:GOTO60000"+ú"10 FLAG=0: LCHECK=LEN(CHECK$):LANS=LEN(ANS$):REM MATCH SUBROUTINE",,ú"20 IF LANS NEEDS TWO NUMBER "SENT$:BADBAD1:1059:1059:Y*&J1Y1:(MSENT$,J,1)" "40250q*0J:40220: ERROR*:KJY1:M$(MSENT$,K,1):M$" "M$","Y((MSENT$,YK)):*DK:40220*Pò******Zò CAUSE THE LOADING OF MATCH SUBROUTINE+díPF)A$"C"ĺ"HGR":;)ꜭA$"O"ĺ"HGR : HCOLOR=3:VTAB21":y)"STOP: REM SYNTAX ERROR "SENT$:1059:1059:BADBAD1:) FIND TWO NUMBERS INSIDE MSENT$ SEPARATED BY BLANK OR COMMA)OK1:X(MSENT$))Y(MSENT$):Y1402302*OK0:"STOP : REM SUBROUTINES1(LNUMLNUM50:LNUM"POKE 216,0":L(A$"P"A$"L"40180l(40200:OK0ı: GET VALUES(X0X100X0(Y0Y100Y0(XX2.75:Y160Y1.55(œA$"P"ĺ"HPLOT "X","Y:(̜A$"L"ĺ"HPLOT TO "X","Y:(֜A$"Q"ĺ"TEXT":OTO "LNUM30:LNUM20"PRINTCHR$(4);"(34)"BLOAD "MSENT$(34)":GOTO "LNUM50: BE ABLE TO ERROR RECOVER'rLNUM30"PRINT "QU$"PICTURE "MSENT$" NOT FOUND "QU$":FOR K=1TO2000:NEXTK" (|LNUM30000ĺLNUM40"CALL 768": APPLESOFT PATCH FOR ERROR RECOVER IN"LOCK"PILOT$NAME$:t'O216,0:768:::"THIS FILE ALREADY EXISTS "::"USE THE REPLACE COMMAND"BELL$BELL$:61510:'O*****LOAD'P21:958:"LOAD WHAT LESSON"BELL$' P120:TEMP$""ı'PNAME$""'P:12:"ATTEMPTING TO LOAD"::"LESSON "TEMP$ &O*****SAVE&O216,0:768P&O:10:"ATTEMPTING TO SAVE"::"LESSON "NAME$\&O20460x&O(4);"OPEN"PILOT$NAME$&O(4);"WRITE"PILOT$NAME$&OPRESENT:COUNT1PRESENT&O(34)COMM$(COUNT)(34):&O216,0:(4);"CLOSE"PILOT$NAME$'O(4);CURR1PRESENT:COMM$(LCURR)"":J%BO:LCURR0:PRESENT0:NAME$"": NEWk%LOTEMP$""ĺBELL$BELL$:50310%VONAME$(TEMP$" ",14):10010:%`O***** REPLACE%jO20370%tO(4);"UNLOCK"PILOT$;NAME$%~O(4);"DELETE"PILOT$;NAME$:20380HAR$"RA"Ĺ34,0::10660:^$ONAME$""ĺ"THERE IS NO LESSON TO WORK WITH"BELL$BELL$:61510:$OCHAR$"LI"Ĺ34,0::10530:$OCHAR$"RE"İ20330:$$O"INVALID COMMAND "TEMP$BELL$BELL$:61510:$.O:21:"NEW FILE NAME"BELL$:120:TEMP$""ı %8OL"İ20270:,#NCHAR$"M"CHAR$"T"İ20600:W#NCHAR$"P"PRESENT0Ĺ34,0::10570:z#NCHAR$"E"PRESENT0İ10010:#NCHAR$"S"PRESENT0İ20380:#N(TEMP$)2ĺ"INVALID COMMAND "TEMP$:61510:#NCHAR$(TEMP$,2):CHAR$"LO"İ20480:$NC"fN21:958:"REQUEST "BELL$E"pN120:TEMP$""ĺBELL$BELL$:20070W"zN20100:20010l"NCHAR$(TEMP$,1)"NCHAR$"A"NAME$""İ20820:"NCHAR$"C"Ĺ34,0:(4);"CATALOG":61510:"NCHAR$"Q"Ĺ34,0:20790:"NCHAR$"H"İ62010: #NCHAR$"N"LO)AD M)AKE N)EW P)RINT Q)UIT":"RA)TE RE)PLACE S)AVE T)EST":34,6:9s!>NTEMP$"LESSON IN MEMORY "NAME$!HNNAME$""TEMP$"NO LESSON IN THE MEMORY":PRESENT0:LCURR0!RNPRESENT0ĺ"LESSON "NAME$" NOT MADE""\N:8:TEMP$::PRESENT" LINES"$BELL$:61510:B *21:958:"WHAT LINE "BELL$;:120:TEMP$""ı} *TEMP(TEMP$):TEMP1TEMPPRESENTĺBELL$BELL$;:TEMP0 * N***** MAIN MODE OF EDITOR *N34,0::10);::"EDITOR REQUESTS":N!4N:"A)LTER C)ATALOG E)DIT H)ELP LI)ST":"S)LOW M)EDIUM F)AST V)ERY FAST N)ORMAL"BELL$:A$O)A$""ĺBELL$BELL$:10670u)CHAR$(A$,1):CHAR$"S"LSP20:)CHAR$"M"LSP40:)CHAR$"F"LSP80:)CHAR$"V"LSP160:)LSP255: )21:39:958::"CAN'T ADD ANY MORE LINES"BELL;"PR#1":(9)"80N"(24)/|)"LESSON "NAME$::_)COUNTTEMPPRESENT:COUNT" "COMM$(COUNT):x):::(4);"PR#0":) ****LISTSPEED)2:"A C D HELP I LI P QUIT ";::"RA";::" S")21:958:"WHAT SPEED FOR LISTING PROGRAMS"1)OUNT" "COMM$(COUNT):::255:61510:5@)*****PRINTuJ)2:3)"A C D HELP I LI ";::"P";::" QUIT RA S"T)10760:TEMP0TEMP1^)21:958:"PRINTER CONNECTED Y/N "BELL$:120h)TEMP$""(TEMP$,1)"Y"10550: USE THE SCREENr)(4)HECK SYNTAX|)COUNTPRESENTLCURR1:COMM$(COUNT1)COMM$(COUNT)::COMM$(LCURR)TEMP$:TEMPTEMP1:PRESENTPRESNT1:10480)ʼ")2:"A C D HELP I ";::"LI";::" P QUIT RA S",)10760:TEMP0TEMP1%6)LSP::COUNTTEMPPRESENT:C):KK1:,(PRESENTPRESENTLCURRTEMP1:C(*** INSERT A LINE(2:"A C D HELP ";::"I";::" LI P QUIT RA S"(PRESENTMAXİ10750:(10760:TEMP0ı(LCUURTEMP:1010:120(TEMP$"DONE"TEMP$""ı )2010:OK010480: CLP I LI P QUIT RA S"/(10760:TEMP0ı(LCURRTEMP:1010:21:"DELETE TO WHAT LINE (INCLUSIVE) ";:A$:TEMP(A$):TEMPLCURRĺBELL$BELL$:(TEMPPRESENTPRESENTLCURR1:COMM$(PRESENT1)"": (K0:LTEMP1PRESENT:COMM$(LCURRK)COMM$(L""ĺ"INVALID USE DELETE COMMAND"BELL$BELL$:61510:[P(TEMP$COMM$(LCURR)TEMP$"DONE"ırZ(2010:OK0ī10260d(COMM$(LCURR)TEMP$:LCURRMAXın(1010:TEMPLCURR1:10280x(***** DELETE LINES(PRESENT0ı(2:"A C ";::"D";::" HEMP$:LCURRPRESENT:102002 ( ***** CHANGE A LINEo(2:"A ";::"C";::" D HELP I LI P QUIT RA S"(10760:TEMP0ı: GET A NUMBER((LCURRTEMP:PREV$COMM$(LCURR)2((LCURRST)LCURRFIİ1010: UPDATE THE SCREEN<(1304F(TEMP$OP"761510:::.....START OF NEXT LESSON SECTION"6::"OTHER USEFUL COMMANDS"::"Y(N)...DO THIS IF MATCH RIGHT(WRONG)":"TC:....CLEAR SCREEN THEN TYPE":"TH:....TYPE THIS LINE AND HANG ON":"TI:....TYPE THIS LINE IN INVERSE"7"TV:....VERTICAL TAB FROM SCREEN TJ:.....JUMP TO PROGRAM SECTION/LABEL":"L:.....LINK TO THE NEXT PROGRAM":"M:.....MATCH THE STUDENT RESPONSE"5"R:.....REMARK":"S:.....SOUND":"T:.....TYPE A LINE":"U:.....GOTO A LESSON PART AND RETURN"#6"X:.....IS THIS BASIC STATEMENT TRUE?":"*E......PROGRAM IN MEMORY TO DISC"V4b"T)EST......THE SYNTAX OF THE PROGRAM":61510:a4l*****4v34,0:::"VALID PILOT COMMANDS"::4"A:.....ACCEPT STUDENT ANSWER":"B:.....BASIC STATEMENT":"E:.....PROGRAM LESSON END":"G:.....GRAPHICS"m5"D......PROGRAM FROM THE DISK":"M)AKE......PILOT->BASIC CONVERSION"3N"N)EW.......NEW PROGRAM CREATE":"P)RINT.....PROGRAM ON THE PRINTER":"Q)UIT.......THE PROGRAM":"RA)TE......RATE ADJUST FOR LIST":"RE)PLACE...ON DISK WITH LATEST VERSION"!4X"S)AV&2"RA)TE...ADJUST OF LIST SPEED":C2"S)AVE...THE PROGRAM":R2:61510:]20*****2:34,0::2:"A)LTER.....NAME OF PROGRAM IN MEMORY":"C)ATALOG...THE DISK FILES":"E)DIT......PROGRAM IN MEMORY":"LI)ST......PROGRAM TO THE SCREEN"C3D"LO)A** EDIT HELP FUNCTION1FN1P:"PRESS RETURN TO CONTINUE "BELL$;::A$::i1Z"C)HANGE.A LINE(S)":1d"D)ELETE.A LINE(S)":1n"I)NSERT.A LINE(S)":1x"LI)ST...ONTO THE SCREEN":1"P)RINT..TO A PRINTER":2"Q)UIT...TO MAIN COMMANDS": LINE END"+0"CONTROL-P..PILOT COMMANDS"0"CONTROL-Q..DELETE LINE AFTER CURSOR":"CONTROL-R..RECOVER OLD VERSION OF LINE"0"CONTROL-X..VANISH THIS LINE":0" KEEP THE LINE AS IT STANDS":"<- AND -> MOVE THE CURSOR":::1< ***NE EDITTING COMMANDS"::::?/\"CONTROL-A..AIDEZ-MOI S.V.P"/f"CONTROL-B..CURSOR TO LINE START":"CONTROL-D..DELETE AT CURSOR POSITION"/p"CONTROL-F..FIND THE NEXT CHAR I TYPE IN" 0z"CONTROL-I..INSERT AT CURSOR POSITION":"CONTROL-N..CURSOR TO: NUMBER OF COMMAND LINES&.LSP200F. ADD APPLESOFT ERROR PATCHq. 104,168,104,166,223,154,72,152,72,96. COUNT768777:NUM:COUNT,NUM:.PILOT$"PILOT.": REMOVE THIS LINE FOR NORMAL EDITOR.20010.H*****/R34,0:::8);::"LINES IN LESSON?-MAX300: MAXIMUM NUMBER OF LINE PERMITTEDg-LCURR0: CURRENT LINE WORKING WITH-CHAR0: ASCII VALUE OF CHAR-ST0: START OF DISPLAY-FI0: FINISH OF DISPLAY-OK0: FLAG FOR VALIDITY OF THE PILOT LINE.COMM$(MAX)21:"WHAT IS THE NEW NAME":120:TEMP$""ıU,^QNAME$(TEMP$" ",14):`,`*****o,jBELL$(7),tPT0: CURSOR CONTROL,~CADD0: CHAR INSERT FLAG,SIZE0: LENGTH OF LINE,COUNT0: TEMPORARY COUNTER -PRESENT0: NUMBER OF LIP"K+Q34,0::10:"LOADING PILOT->BASIC":::"PLEASE DO NOT INTERRUPT":f+"Q(4);"EXEC EXEC.TEMP"~+,Q:"IGNORE THE ";:+6Q:(10):"LEAVING THE PROGRAM":"ARE YOU SURE Y/N "BELL$BELL$BELL$;:120:TEMP$""ı+@Q(TEMP$,1)"Y"ė:10:+JQ,,TQ:"*P(4);"DELETE EXEC.TEMP"@*P216,0:(4);"OPEN EXEC.TEMP"\*P(4);"WRITE EXEC.TEMP"t*P"RUN PILOT->BASIC"*PNAME$*PCHAR$TCHAR$*PCHAR$"M"ĺ"N": FORCE LESSON MAKING*QCHAR$"T"ĺ"Y": FORCE SYNTAX CHECKING+Q(4);"CLOSE EXEC.TEM"NOTHING TO WORK ON"BELL$BELL$:61510:9)PTCHAR$CHAR$})P:21:"SAVE THE PROGRAM IN MEMORY "BELL$;:120:TEMP$""20620)PA$(TEMP$,1):A$"Y"ĺ"USE THE SAVE COMMAND":61510:)PA$"N"ĺBELL$BELL$:20620)P20680*P(4);"UNLOCK EXEC.TEMP((P20580&(2P(4);"OPEN"PILOT$TEMP$B(FLAG4680?4690HR2007\D$"RUN HELLO" 0u30020: PROCABOUT OTHER INSTRUCTIONS"@"4) QUIT AND GO FOR COFFEE"Fp"TYPE THE NUMBER OF YOUR CHOICE"" ";BELL$;:70FLAG0CHECK$"1":10:FLAG14550FLAG456045702000FLAG0CHECK$"2":10:FLAG14590FFLAG4370 43803"I WAS EXPECTING MN:">30000F&:L0:"WHAT WOULD YOU LIKE TO DO FOR THE NEXT LESSON"DN"1) REPEAT THIS LESSON"Xb"2) LEARN MORE ABOUT THE T, M AND A INSTRUCTIONS"lv"3) LEARN 00031000z"WHAT INSTRUCTION WOULD LET YOU TRY A SECOND MATCH IF THE FIRST MATCH WAS NOT SUCCESSFUL"BELL$;:70FLAG0CHECK$"MN:":10:FLAG14340FLAG43504360"THAT WAS GOOD CONSIDERING" 000 "6,"WHAT INSTRUCTION LETS YOU TYPE IF THE"<6[@"LAST MATCH WAS TRUE"" ";aJqTBELL$;:70|^FLAG0hCHECK$"TY:":10:FLAG14210rFLAG4220s4230|"GOOD"FLAG42404250"I WAS EXPECTING TY:"30003"WHAT INSTRUCTION LETS YOU ACCEPT AN"9P"ANSWER "" ";VfBELL$;:70qFLAG0CHECK$"A:":10:FLAG14070FLAG40804090"GOOD"FLAG41004110"I WAS EXPECTING A:"3000031 OVER THIS LAST BIT AGAIN"*BELL$;:705(FLAG0U2CHECK$"Y":10:FLAG13900d<FLAG3910n=3920xF2002P:"READY FOR A QUICK TEST"ZBELL$;:70dFLAG0nCHECK$"Y":10:FLAG13960xFLAG3970y39802007310E WANT TO REPLY TO OUR STUDENT FRED"*~Q"THIS GIVES THE COMPLETE PROGRAM"W]z:"T:WHAT IS YOUR NAME":"A:":"M:FRED":"TY:HI THERE FRED":"TN:WHERE IS FRED" "SHALL WE GOFLAG36103630!FLAG0E$CHECK$"MATCH":10:FLAG13630T.FLAG3640^/3650o8"VERY GOOD"BFLAG3660C3670L"THE T MEANS TYPE"VFLAG3680W3690`"THE TY MEANS TYPE IF LAST MATCH WAS GOOD"j30000$t:"W`:6:"LESSON MORE-TMA "^j10:"GENERATED USING PILOT->BASIC"::"M. SMITH FEB 1982"otJ13000:J~BELL$(7): BELL CHARACTERD$(4): DISK CONTROL:1900:60 o3970&x"I WAS AFTER TV:16"1300009:A13l"HANG ON WHILE I GET THE NEXT LESSON"D$;"RUN MORE-TMA-2"D$"RUN HELLO"0u30020: PROCEDURE RETURNDuNu"PRESS RETURN TO CONTINUE "" ";XuBELL$;:70buy 3840&"I WAS EXPECTING TC:"1300009 :f"WHAT COMMAND SHIFTS TO THE 16TH LINE "l("ON A PAGE? "" ";2BELL$;:70<FLAG0FCHECK$"TV:16":10:FLAG13920PZFLAG3940[3950d"VERY GOOD"nFLAG39TEACHER DOES"~30000<:"OKAY, A QUICK REVIEW"Bl"WHAT COMMAND CLEARS THE PAGE? "" ";|BELL$;:70FLAG0CHECK$"TC:":10:FLAG13790FLAG38103820"VERY GOOD "BELL$" "BELL$" "BELL$"FLAG3830$":":D1$","#^ MX99:LL36:NC19@h P$(1,99),I$(1,19),S$(7)Zr D$(13)(4):G$(7)l| A,T,M,J,C,E I16:S$(I):  D$;"NOMON I,O,C":  $;"LOCK";CP$ * *** DISK LOAD ***B *****************\ "PROGRAM NAME?";CP$o D$;"OPEN";CP$ D$;"READ";CP$ I0MX:P$(0,I),P$(1,I):I D$;"CLOSE";CP$ , *** INITIALIZE ***6 ******************J 1390 T D0Ƞ̠ŠؠҧԺԺΠՠ٠ϠΠŠ͢Ժպ΢úҠŠӠ͢ԺɺԺנǠӠŠƠǿºźԧǤ̢ԺԺӠԠԠĠŠΠҢԺԺōԺպ΢ºźԧŠӠαβàŠԧԺԺϠҠɠ׮ԺºԧҠӠȠӠŤΠŠħԺԺҠӠŠǠӢԺԺŠΠàӠŠ͢ԺԺȧԺנĠŠՠα̠Ժպ΢úՠΠŠӠΠ٠ŠԢԺºԧӠȠĠӠȠԺԺҠŢԺºźԧγζ̢ԺԺŠŠԠԠȠҢŠĠºźԧα̢ԺԺԠŠԠҠĠĠԢԺȺΠŠΠŠҠĠºźԧα̢ԺԺŠҠԠˠԠԠĢԺȺΠՠĠºźԠԠŢԺԺĠΠŠԠŠӠԠƢԺԺ΢ԺԺՠĠŠӢԺɺԺԠӠҠŢºźԧα̢ºźԧנĠŠՠα̢ԺԺպ΢úȺԱŭúŠŠΠנϠŠŠԺĠϠԠԠҢԺɺԺԠӠҠŢɺԺԺԺŠΠϠŠԠϠԠԢԺԺҠĠΠŠԠҢպ΢úŠՠԠϠ   HER INSTR2 "Lj10:"GENERATED USING PILOT->BASIC"::"M. SMITH FEB 1982"]tJ13000:J}~BELL$(7): BELL CHARACTERD$(4): DISK CONTROL:19001AG14090FLAG4100"41109D$;"RUN MORE-TMA"DFLAG0dCHECK$"4":10:FLAG14130j"t,20046D$"RUN HELLO"0u30020: PROCEDURE RETURNDuNu"PRESS RETURN TO CONTINUE"" ";XuBELL$;:70buy `:6:"LESSON OTOUR CHOICE"" ";BELL$;:70*FLAG0JCHECK$"1":10:FLAG14010YFLAG4020c4030}D$;"RUN OTHER INSTR"FLAG0CHECK$"2":10:FLAG14050FLAG40604070D$;"RUN GRAPHICS/SOUND"FLAG0 CHECK$"3":10:FL0 "THAT THE ONLY TIME YOU NEED 2 E:";30000S:"DO YOU WANT TO"Y(t2"1) REDO THIS LESSON"z<F"2) LEARN ABOUT GRAPHICS"PZ"3) LEARN MORE ABOUT T: M: AND A:"dn"4) QUIT"x"TYPE IN THE NUMBER OF Yt,~"NOTE THAT THE PROGRAM HAD TWO E:"5" "_"ONE AT THE END OF THE MAIN PROGRAM"e"ONE AT THE END OF THE USER PART""IT ALSO HAD TWO *:""AGAIN ONE FOR THE MAIN""ONE FOR THE USER PROGRAM"ERD$(4): DISK CONTROL):1900*$"RUN HELLO"*0u30020: PROCEDURE RETURN0DuTNu"PRESS RETURN TO CONTINUE"" ";dXuBELL$;:70jbupy`:6:"LESSON MORE-TMA-2 "j10:"GENERATED USING PILOT->BASIC"::"M. SMITH FEB 1982"tJ13000:J~BELL$(7): BELL CHARACT:19000!hy"TY: AY: MY:"BASIC"::"M. SMITH FEB 1982"!tJ13000:J!~BELL$(7): BELL CHARACTER!D$(4): DISK CONTROL" !"1 "A: ! !"Y"E: --- ---"_ep$30000v.8"TRY THIS PART OF THE LESSON AGAIN?"BBELL$;:70LFLAG0VCHECK$"Y":10:FLAG13680`FLAG3690a3700j2001 ----- <--- ! !"A ".... ! ! ! !"i ".... ! ! ! !" "E: ! ! ! !" "*:RETURN <-- ! <-- !" "T: ! !"  "T:PRESS ..... ! S BACK TO WHAT IT WAS DOING"'\ 30000Mf :"IT LOOKS SOMETHING LIKE THIS"Sp bz "*:START"n "...."z "...." "U:RETURN ---------------- <---" "... ! !" "... ! !" "U:RETURN 2 "IT STOPS WHAT IT IS DOING AND QUICKLY"8 Y "DOES THE LESSON PART "" ";i :"RETURN"o u  "WHEN IT REACHES THE "" "; :"E:"  * "AT THE END OF THE LESSON PART "" ";4 :"RETURN"> H R "IT GOEUSER LESSON" $ :"*:RETURN"* 6& :"T:"<0 `: :"T:PRESS RETURN TO CONTINUE"fD rN :"A:"xX b :"E:"l v 30000  "WHAT HAPPENS IS THIS. EACH TIME THE"  "LESSON REACHES "" "; :"U:RETURN" ^ :"..."h 3r :"... FIRST PART OF LESSON"9| K :"U:RETURN"Q ^ :"..."d  :"...SECOND PART OF LESSON"  :"U:RETURN"  :"E:"  :"R:THAT WAS THE END OF THE MAIN LESSON"  :"R:START THE INUE"  5 "I ONLY TYPED THIS MESSAGE ONCE BUT"; b "USED IT ABOUT 30 TIMES A LESSON"h  "THE U: COMMAND (USER) ALLOWS ME TO DO" " "THIS", 300006 :"MY MAIN LESSON LOOKS LIKE THIS"@ J :"*:MAIN LESSON"T LL$;:70n FLAG03x CHECK$"Y":10:FLAG12690B FLAG2700L 2710V 2000 :"THE LAST COMMAND U: CAN SAVE A LOT OF"  "TYPING. YOU WILL HAVE NOTICED ABOUT A"  "ZILLION TIMES THE MESSAGE"  "PRESS RETURN TO CONTNOTICED THAT WE USED" : "THE X: COMMAND TO CHECK"@ k "THE B: COMMAND TO ALLOW US TO COUNT"q( 2 "AND THE J: COMMAND TO ALLOW US TO MOVE"< F "ABOUT IN THE LESSON"P 30000Z "REPEAT THIS LESSON FOR A REVIEW? "" ";d BEIF THIRD ATTEMPT" B ( L :"B:T=T+1". V = ` :"X:T<3"C j U t :"JY:VOWEL"[ ~ :"T:THE VOWELS ARE A E I O U" :"*:NEXT" :"... REST OF LESSON" :"E:" 30000  "YOU WILL HAVE  :"R:START THE COUNT" / :"B:T=0"5 F :"*:VOWEL"L g :"T:GIVE ME A VOWEL"m y :"A:"  :"M:A,E,I,O,U"   :"JY:NEXT LESSON"  $ :"R:IF OKAY MOVE TO NEXT LESSON" .  8 :"R:OTHERWISE CHECK "AFTER THE X: IS TRUE" " N *"IT IS A VERY USEFUL COMMAND TO ALLOW"T 4 >"THE STUDENT A NUMBER OF ATTEMPTS AT " H R"AN ANSWER BEFORE GIVING HIM THE ANSWER" \ f30000 p:"USING THE X COMMAND" z :"*:START"  ANS$ANS$A$:80 l1920; K09:X:(768K),X:Ks 104,168,104,166,223,154,72,152,72,96: ONERR PATCH 2020: PROCEDURE OTHER INSTR2 2870 3870 :"THE X: COMMAND"  "THIS CHECKS TO SEE IF THE STATEMENT"  2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80e U(((ANS$)0)(A$(8)))80z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ" "(8);:ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70?160:34,0:::"LESSON OTHER INSTR2 ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L             ٢ԺԺ̢ԺԺՠΠ٠ϠȠҠƠӢԺԺҠŬŠՠĠŢԺԺ΢ԺɺԺŠՠŠՠŠ٢ɺԺԺպ΢ԺԺՠĠԠŠӠӢԺԺӬΠՠΠŠ͢ԺԺԺӠӠŠŠĠǠӠŢԺԺ̠àĠΧŠԢԺԺǠϠŠҠŠҢԺԺӠӠ͠͠Ǣպ΢úŠͺҠȠΠӠҍȺӠΠϠŢźĢ΢ԺԺΠԠӢԺԺΠŠԠԺͺĠԺԺԢԺȺŠΠŠҠƠҠŢͺٺҠҢͺٺӯĢͺٺŭͺºТʺź΢ԺΠ͢ԺԺŠԠŠĠƠŠҠԢԺԺԠϠĠϠԺԺΠŠҠŠ΢ԺԺŠҠŠҠ͢ԺԺԺԺԠŠ٠ŠՠĠźպ΢úϠՠԠϢԺԺϠӠӮԺԺźԺԺպ΢ԺԺ٠ӠԠƠŠΠοͺ٢ٺԺԺŠԠŠ͠ĠϠźԺԺŠԠŠĠƠŠ͠ԺպΠԺԺԺźԺΠԺԺԺԺӠԠŠĠƠŠΠԠɺ΢ԺԺԠӠˠϠԠԠӠǢպ΢úԠӠǠŠӢԺԺԢԺԺԺպΠԺԺŢɺɺźպ΢ԺԺԠӠӠӮȠŠŢԺȺΠӠɺպ΢ԺԺԠӠԠԠӠǠĠ٢ԺȺӠŠΠԠɺ΢ԺȺΠԠӠŠɺźԺȺɺΠ΢ɺɺԠԠƠ΢ɺպ΢ɺɺĠԠƠ΢ɺպ΢ɺźɺҺԠӠŠĠƠŠΠ΢ɺҺԠŠҠ΢ɺ΢ɺԺɺԺӠΠϠΠӠŠŢԺԺӠΠϠŢԺԺɠ٠ĠӠŠŠԢԺԺĠԠԠӠ΢ԺԺŠպĠҩӠŠϠϢԺԺӢպ΢ú٠ΠΠӠŠӢԢԺԺĠŠʺĠϠנӠϠŢԺԺԠΠŠ΢պ΢ȺԠӠΠҠ׿ͺ٢ٺҠҲúŠԠĠպΠŠԠƢԺԺǮՠ̠ŠĠԠԺԺɺºԽԫɺغԼɺٺ̢ɺԺŠӠŠŠɠϠբɺԢɺԠƠ΢ɺźԺպ΢ԺԺՠ̠ŠĠԠŠĢԺԺŠغĠϠˢԺԺŠºĠϠנӠϠԢҢԺպ΢úǠŠؠĢԺɺԢɺҺԠŠԢɺºԽɺ̢ɺԺŠŠ̢ɺɺͺŬɬϬբɺٺԠ΢ɺҺƠ٠ŠϠԠ΢ɺҺŠˠƠĠԢҠҲúŠغĢԺԺӠӠϠŠƠŠԢԺԺҠŠغӠŢԺԺԺԠӠ٠̠ĠϠעԺԺŠԠҠƠӠԠԺԺΠҠŠǠ͠Š        K$"2":10:FLAG13530& FLAG35400 3550G D$;"RUN MORE-TMA"R FLAG0r CHECK$"3":10:FLAG13570 FLAG3580 3590 D$;"RUN OTHER INSTR"FLAG0CHECK$"4":10:FLAG13610FLAG36203630$.2003 8DLIER LESSON ON T: M: A:"H GR "3) LEARN ABOUT OTHER INSTRUCTIONS"M\ \f "4) QUIT"bp z "ENTER THE NUMBER OF YOUR CHOICE "" "; BELL$;:70 FLAG0 CHECK$"1":10:FLAG13490 FLAG3500 3510 2000 FLAG0 CHECTCH OK, OKAY " $ "AND OKEY"/ 300007 :R "IT WOULD ALSO MATCH"X p "YESTERDAY, TOOK"v  "SO YOU HAVE TO BE CAREFUL" 30000 :"WOULD YOU LIKE TO" * "1) REPEAT THIS LESSON AGAIN"4 > "2) DO THE EAR "& 80 "OR EVEN THE MISSPELLED OKEY OR YESSIRYEE"C: 30000uD :"FOR THIS YOU WOULD USE THE MATCH COMMAND"{N X :"M:Y,OK"b l v  "THE Y PART WOULD MATCH AGAINST"  "YES, YEP, YESIR"  "AND THE OK WOULD MA NUMBER OF THINGS" B "FOR EXAMPLE, SUPPOSE YOU ASKED THE"H X "QUESTION"^  :"T:ARE YOU SURE YOU ARE OKAY"  :"A:"    30000  "YOU COULD EXPECT THESE AS ANSWERS"  "YES, YEP, OK, OKAY 0 "SPECIAL BASIC WORD 'ON' INSIDE IT"6" `, "KEEPING TO ONE LETTER + ONE NUMBER"f6 @ "STOPS THIS PROBLEM FROM HAPPENING"J 30000T :"THE M: OR MATCH INSTRUCTION IS VERY"^ h "POWERFUL"r | "YOU CAN TRY TO MATCH A0# :"FOR EXAMPLE THIS PROGRAM") S :"T:HOW LONG IS A PIECE OF STRING?"Y m :"A:$LONG$":s  "LOOKS ALRIGHT BUT WOULD GIVE AN ERROR"  "WHEN YOU RUN THE PROGRAM"   "THIS IS BECAUSE THE WORD LONG HAS THE" 3( "LONGER NAMES SUCH AS $NAME$ CAN BE USED"92 c< "HOWEVER SOMETIMES THESE LONG NAMES"iF P "HAVE HIDDEN BASIC WORDS INSIDE THEM"Z d "WHICH WILL CAUSE A 'SYNTAX ERROR'"n x "WHEN YOU TRY TO RUN THE PROGRAM"  3000" 0 "STARTS WITH A $ AND ENDS WITH A $"6 I "FOR EXAMPLE"O m :"$N3$ $N6$ $A6$":s  "THE NAME MUST START WITH A LETTER"  30000 :"THE NAMES $N1$ $N2$ ETC ARE DIFFICULT"  "TO REMEMBER I KNOW."ORED IT" . < 8 "IN A PLACE IN THE COMPUTER CALLED "" ";L B :"$N1$":R L ~ V "THE COMPUTER GOT BACK WHAT IT STORED" ` j "WHEN YOU TYPED "" "; t :"T:HOW OLD ARE YOU $N1$": ~ 30000 :"YOU CAN STORE THINGS IN ANY NAME THAT"A QUESTION" / "YOU WOULD TYPE THIS"5 Q :"T:WHAT S YOUR NAME"W i :"A:$N1$": :"A:HOW OLD ARE YOU $N1$ ?":   30000 :  "THE COMMAND "" ";  :"A:$N1$":   $ "GOT THE STUDENT ANSWER AND STAT IS YOUR NAME" " :"A:"( . *4 4_ >"WE CAN ALSO USE IT TO GET A STUDENT"e H R"ANSWER AND THEN USE THAT ANSWER" \30000 f:"SUPPOSE YOU WANT TO GET A STUDENT NAME" p z"AND THEN USE THAT NAME AS PART OF"   ANS$ANS$A$:80 l1920; K09:X:(768K),X:Ks 104,168,104,166,223,154,72,152,72,96: ONERR PATCH 2020: PROCEDURE MORE-TMA-2 3350 :"WE HAVE SEEN HOW TO USE THE A:" "COMMAND TO GET A STUDENT ANSWER"  :"T:WH2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80e U(((ANS$)0)(A$(8)))80z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ" "(8);:ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70+?160:34,0:::"LESSON MORE-TMA-2 ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L            30000   * :"TY: MEANS WHAT"0 6 P "REAL MEAN AM I NOT"` BELL$;:70f q FLAG0 CHECK$"TYPE":10:FLAG13560 FLAG3570 3600 FLAG0 CHECK$"YES":10:FLAG13600CHECK$"GOOD":10:FLAG13600 - NOW WHAT"  5* "PILOT HAS TWO COMMANDS";4 L> :"Y AND N"RH XR \ "Y MEANS DO THIS INSTRUCTION IF THE LAST MATCH WAS GOOD"f p "N MEANS DO THIS INSTRUCTION IF LAST MATCH WAS WRONG"z ITH M:" FLAG3260! 3270+ 20036 FLAG0[ CHECK$"M:ANNA":10:FLAG13290j FLAG3300t 3310 "RIGHT ON" FLAG3320 3330 "I WAS EXPECTING M:ANNA" 30000  :"OKAY WE HAVE CHECKED TO SEE IF IT WAS FRED --0 : BELL$;:70D 'N FLAG0GX CHECK$":":10:FLAG13170Wb FLAG3180ac 3190l "YOU FORGOT THE COLON :"v FLAG3200w 3210 2003 FLAG0 CHECK$"M:":10:FLAG13230 FLAG3240 3250 "YOU MUST START W0000X :"TO CHECK THE STUDENT'S ANSWER YOU HAVE TO COMPARE THAT ANSWER WITH 'FRED'"^ { :"T:WHAT IS YOUR NAME"  :"A:"  :"M:FRED"  & "WHAT INSTRUCTION WOULD YOU USE TO SEE IF ANNA WAS THE STUDENT SIGNED ON"NG IF FRED HAS SIGNED ON"!h 1r BELL$;:707| B FLAG0e CHECK$"FRED":10:FLAG12970t FLAG2980~ 2990 "RIGHT" FLAG3000 3010 "YOU SHOULD BE EXPECTING EITHER THE ANSWER 'FRED' OR PERHAPS 'I AM FRED'" 3 :"GETTING MORE FRIENDLY"$ u" "SUPPOSE THAT YOU WANT TO SEE IF STUDENT FRED HAS SIGNED ONTO THE COMPUTER"{, 6 "THEN YOU MUST CHECK THE STUDENT'S ANSWERAGAINST THE ONE YOU ARE EXPECTING"@ J T ^ "WHAT ANSWER ARE YOU EXPECTIG T:WHO AM I"n 30000Fx :"TO GET AN ANSWER FROM A STUDENT YOU"L h "USE THE COMMAND "" ";t :"A:"z    "FOR EXAMPLE TO GET THE STUDENT'S NAME"  :"T:WHAT IS YOUR NAME"  :"A:"   300002570# "YOU MUST START WITH T:"3 FLAG2580= 2590H 30000X FLAG2600b 2610l( 2002w2 FLAG0< CHECK$"T:WHO AM I":10:FLAG12630F FLAG2640G 2650P "BANG ON THE NOSE"Z FLAG2660[ 2670d "I WAS EXPECTIN~ BELL$;:70 FLAG08 CHECK$":":10:FLAG12460> N FLAG2480X 2490v "YOU FORGOT THE COLON :" FLAG2500 2510 30000 FLAG2520 2530 2002 FLAG0 CHECK$"T:":10:FLAG12550 FLAG2560 "IF YOU WANT THE COMPUTER TO TYPE"+ D "WHAT IS YOUR NAME"J p  "THEN YOU WOULD USE THE COMMAND"v   :"T:WHAT IS YOUR NAME" $ . 8 B L "HOW WOULD YOU GET THE COMPUTER TO TYPE" V ` :"WHO AM I" j t LINE"   *; 4:"A: ACCEPT A STUDENT ANSWER"A >G HM Ry \:"M: MATCH A STUDENT'S ANSWER TO THE" f p:" EXPECTED ANSWER" z   30000 : "THE TYPE COMMAND "" "; :"T:"   %  ANS$ANS$A$:80 l1920; K09:X:(768K),X:Ks 104,168,104,166,223,154,72,152,72,96: ONERR PATCH 2020: PROCEDURE INTRO-TMA 2210 3110 4390 160 :"THERE ARE THREE MAIN COMMANDS"   :"T: TYPE A 2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80e U(((ANS$)0)(A$(8)))80z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ" "(8);:ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70 ?160:34,0:::"LESSON INTRO-TMA ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L           ԺĠ٢պ΢úԺԠĠϠȢԺԺ٬ˢԺԺϠՠŠϠŠ̢պ΢úĠՠŠϢԺԺԠӠΠ΢ԺԺϠŠҠΠΠԺͺԺԺΠԠЬˬ٠ԺԺҠΠŠĠ٠ҠŢպ΢úҠӠՠĠŠŠȠĢԺɺͺ٬ˢԺԺԺŠ٠ԠĠȠԢԺԺӬЬҢԺԺĠŠˠĠȠˬ٠Ժ΢ԺȺӠΠϠŠźĢκӠϠРƠŠȠӠĢԺԺٺӠϠРƠŠȠӠĢպ΢úϠՠԠϠϠҠӠ΢ԺȺοͺ٢ٺҠҢԺԺǠΠŠɠԠŠԠ΢̺ҠҲźɺԢɺԺӠҠӿɺɺͺӢɺٺӢɺκӢɺӢɺɺɺʺԢɺӢɺɺɺʺԢɺźպ΢ԺԺŠŠĠʺԠϠӠТԺԺǠϠŠԧӢԺԺҢԺԺԺŠՠԠŠԠϠŢԺȺΠŠӠɺӠҠӢԺԺΠՠĠŠŠʺĠԺԺŠӢպ΢úǠʺȠΠӢԺԠŠӠŠĠΠŠ΢ºĽպ΢ԺԺՠŠŠԠԠɠ΢ԺȺӠӠɺºĽպ΢ºĽúʺҠРĢԺԺӠӠՠϠРĠ΢ԺԺŠ͠΢ԺԺӠӠՠϠŠΠ٠ĠԺԺàĮՠԠנâԺԺŠӠΠҢԺԺԺ̠ºĠϠҠƢԺɺºĽԺԺԠӠՠϠנΠŠŢԺԺҢԺԺԺӠӠǠŠ͠ΠŠԺԺԠ͢ԺԺҠźϠΠŠ͠ԺԺӯĬɠĠŢԺɺ̺ӯĢԺԺٺĠκŠϠĢպ΢úºĢԺӠԢպ΢úŠӠǺĠӺԺԺǺӢԺԺӺĢԺԺԺŠĠΠŠ΢ԺɺӯĢպ΢ú̺ĢԺԺӠĠӠՠϠˢԺԺŠ͠ΠϠŠԢԺպ΢ԺҠŢԺɺ΢ɺҺΠΠӢɺԺԠӠҠſɺɺɺɺźԺԺŠҺԠ٠ӠĠϢԺԺĠŠҠԠŠ΢ԺΠԠɺԺŠΠԠɺźԺԺɺŠԠŠӠ٠Šɺźպ΢úŠҺĠӠ٠ˢԺԺԠӠŠҠǠŠ͢ԺǬԠӠԠӠԠԺԺƠǠԺԺՠԢպ΢úŠΠΠŠ̠ӢԺԺȠԠǠŠԺԺҠŢԺɺΠԠɺԺŠΠԠɺԺŠΠԠɺΠԠɺԺŠԠΠԠԠĠȢԺȺŠĠĠɺźԺպ΢úΠŠĠŢԺɺΠɺɺŠɺԺŠɺźԺԺȺӠΠӠĠɺΠԺԺԺՠΠ̠ŠαҠҢúӠ͠ӠԠŠӢԺɺҺźԺȺΠɺǺӺԺȺ٠ɺºʺ̺պغպ΢úȠΠԠԠԠȢԺȺŠĠɺԠŢԺԺĠ        "BUT NOT THE TWO QUOTES TOGETHER."(T$"THAT CAUSES THE ERROR 'SYNTAX ERROR'"Z.8"IT IS A LIMITATION OF THIS VERSION OF"BL"PILOT. THE PROGRAM ACCEPTS BOTH TYPES"V`"IF THE STUDENT TYPES IT IN BUT NOT WHEN"j t"THE 30000  6 "SHALL WE GO OVER THIS AGAIN "N1$"? "F BELL$;:70Q FLAG0q CHECK$"Y":10:FLAG13540 FLAG3550 3560 2002 :"OKAY "N1$", I MUST WARN YOU ABOUT"  "QUOTES. THIS PROGRAM CAN HANDLE ' OR ''"""MAKING ONE PART OF AN ANSWER "" ";5 :"INVERSE"; A G v* "OR IN GETTING A STUDENT ANSWER ON THE "|4 > "SAME LINE AS THE QUESTION"H R "FOR EXAMPLE"\ f :"TH:WHAT IS YOUR NAME? "p z :"A:"   l v "GIVES" 1 "THIS LINE "" ";I :"HANGS IN THERE"O Z 30000 :"TH: DIFFERS FROM THE T: COMMAND IN THAT"  "THE COMPUTER STAYS ON THE SAME LINE"   "THIS IS USEFUL FOR FANCY EFFECTS LIKE" $ - :"TH: IS EASIEST TO EXPLAIN BY EXAMPLE"3 H :"T:THIS LINE"N d :"TI:IS BROKEN"j p } "GIVES"  "THIS LINE" :"IS BROKEN" & 0 "BUT": D :"TH:THIS LINE "N X :"TI:HANGS IN THERE"b" , 30000@6 :"TV: WILL YOU LET YOU START YOUR TYPING"K@ " "dJ "AT A CERTAIN LINE"jT ^ :"TV:5 GO TO THE 5TH LINE"h r | :"TV:20 GO TO THE 20TH LINE"   "THE NUMBER MUST BE BETWEEN 1 AND 20" 30000 FLAG2710 2720# 2001) K "THOUGHT I HAD BETTER CHECK"V 30000x :"THE LAST T: COMMANDS ARE"~  :"TV: AND TH:"    :"TV: VERTICAL TAB DOWN THE PAGE"   :"TH: TYPE AND HANG IN THERE"OP OF THE PAGE' AT THE TOP OF THE PAGE"/ K( "THE COMMAND IS "" ";g2 :"TC:TOP OF THE PAGE"m< xF 30000~P Z ""N1$" WOULD YOU LIKE TO GO OVER"d "THOSE COMMANDS AGAIN"" ";n BELL$;:70x FLAG0 CHECK$"Y":10:FLAG12700 "GIVES "" ";, :"WRITE THIS LINE"2 8 > j "TI: MEANS TYPE THIS LINE IN INVERSE"u 30000 :"ON THE OTHER HAND THE COMMAND TC:"  "MEANS CLEAR THE SCREEN BEFORE TYPING"   ) "TO GET THE WORDS 'T  :"T: TY: TN:"   E $ "THE OTHER USEFUL COMMANDS ARE"K . g 8 :"TI: TH: TC: TV:"m B x L 30000 V :"THE COMMAND T:WRITE THIS LINE" ` j "GIVES WRITE THIS LINE" t ~ "THE COMMAND TI:WRITE THIS LINE" FLAG2200 22104 "HANG ON WHILE I GET IT"C FLAG2220M 2230e D$;"RUN INTRO-TMA"p FLAG0 CHECK$"N":10:FLAG12250 FLAG2260 2270 2002 :"WE HAVE LEARNED THREE FORMS OF THE"  "T: COMMAND"  :"HI THERE "N1$" 8H "THIS PROGRAM GIVES YOU MORE DETAILED"N *| 4"INFORMATION ON THE COMMANDS T: A: M:" > H R \"WERE YOU AFTER THE SIMPLER STUFF? "" "; fBELL$;:70 pFLAG0 zCHECK$"Y":10:FLAG12180   ANS$ANS$A$:80 l1920; K09:X:(768K),X:Ks 104,168,104,166,223,154,72,152,72,96: ONERR PATCH 2020: PROCEDURE MORE-TMA 2270 2750 2110 160 :"HI THERE, WHAT IS YOUR NAME?"  BELL$;:70:N1$ANS$2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80e U(((ANS$)0)(A$(8)))80z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ" "(8);:ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70?160:34,0:::"LESSON MORE-TMA ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L         2 ***************;F D$;"UNLOCK";CP$:D$;"DELETE";CP$SZ *** DISK SAVE ***kd *****************x AMX01:P$(0,A)""P$(1,A)""Ă D$;"OPEN";CP$ D$;"WRITE";CP$ I0A:P$(0,I):(34);P$(1,I);(34): D$;"CLOSE";CP$  D$"DONE"ı+ A$"EDIT"İ2130:AC1:2580d (A$,1)"*"(A$,1)"!"P$(0,A)"":P$(1,A)A$:2580s B1(A$) (A$,B,1)D0$P$(0,A)(A$,B1):P$(1,A)(A$,B1,(A$)B2):2580 B "COMMAND ERROR"G$G$:AA1 A:( *** REPLACE ***I2ĺ(8);:II1:24101t (A1$)8I2ĺ:2390R~ (A1$)21Ĺ36,(36)1:2480f (A1$)132500 (A1$)97(A1$)122A1$((A1$)32) A1$;:A$(A$,I1)A1$(A$,I1,36) ILL5ILL1ĺG$G$; I:G$G$ :A$(A$,(A$)1)  A,A)""ĺA;:5:P$(0,A);D0$;P$(1,A):2310=A;:4:P$(1,A)D AO 255:a$ *** NEW ***s. ***********B C0:"PROGRAM NAME?";CP$:A0MX:A101:P$(A1,A)""::L :ACMX:A9Ė2V A;:3:"?";` A$" ":I2LLj A1$:(A1$)8(0,C1);D0$;P$(1,C1):C;2);P$(0,C);D0$;P$(1,C)6I *** LIST ***\ ************jCP$""ı~::8:CP$::A0MX:(16384)127Ĺ16368,0:16384,128,0:16368,0P$(0,A)""P$(1,A)""2320255(0):A9Ė2)P$(06:"JUMP TO UNFOUND LABEL FROM LINE #";A;G$G$::Q *** CLEAR SCREEN ***l ********************t :z* *** END ***4 ***********>AMX:R *** EDIT ***\ ************p"STARTING AT LINE?";C0zC0ĺC1;2);P$(P$(1,A),E,1)D1$1890"X1910Fb(P$(1,A),E1,EE1)Z$M$"Y":QlE1E1}v(P$(1,A),E,2)" "(P$(1,A),E,1)""ıE: *** JUMP *** ************D0MXP$(0,D)""2000(P$(1,A),1,40)(P$(1,D),1,40)AD:D1,A),Z1,1)""1760"Z1:1800:;V$(P$(1,A),Z,Z1Z)IHC110V$I$(0,H)ĺ(P$(1,A),1,Z1);I$(1,H);(P$(1,A),Z1,(P$(1,A))Z11):H:1720P$(1,A): *** MATCH ***& *************:M$"N":E11DE1(P$(1,A))N(P$(1,A),Z,1)"$"I$(0,C1)(P$(1,A),Z):1:I$(1,C1):Z$I$(1,C1):C1C11:]hZ:1:Z$:p| *** TYPE *** ************1Z1(P$(1,A))(P$(1,A),Z,1)"$"1730Z:1800:Z1Z(P$(1,A))1(P$(1,A),Z1,1)" "(P$("":: C10( :"RUN OF ";CP$::X A0MX:(P$(0,A))2(P$(0,A),1)M$1560 C216:(P$(0,A),1)S$(C2)ĴC21590,1660,1820,1940,2030,2090 C2 A "::"END OF RUN"G$: 6 *** ASK *** @ *********** TZ1(P$(1,A))M^255$ (222)255(222)51240{ (222)10ĺG$G$"THAT FILE ALREADY EXISTS"::"USE THE REPLACE COMMAND"::1240 :"SYSTEM ERROR #"G$G$;(222);" L:";(218)(219)256::1240  *** RUN ***  *********** I0NV:I101:I$(I1,I)R$"EDIT"İ2130:2380* (R$"LIST"İ2200V -R$"PRINT"ĺD$;"PR#1":2200:D$;"PR#0"j 2R$"NEW"İ2340 <(R$,7)"REPLACE"İ2600 F(R$,4)"SAVE"İ2650 P(R$,4)"LOAD"İ2760 Z1240 n *** ERROR ROUTINE *** x ********************* :"NEW EDIT LIST PRINT":"RUN SAVE LOAD REPLACE"::s :G$;"REQUEST? ";:R$"" R1$:R1$""1280 R1$;:R1$(13)1290 R$R$R1$:1280 R$"BYE"Ĺ216,0:255:(37):12:"-BYE": R$"RUN"İ1470 35:"*";: L8:10. V"MINI - PILOT III"b `14:"REV. 4.00"::9::"MODS-BY-CRC AND MS":y j:I135:"*";:: t FOR W = 0 TO 5000:REM NEXT W: HOME 2860  *** PILOT O.S. ***  ******************V :::"VALID COMMANDS"#****************************E* MINI - PILOT INTERPRETER *h***************************** CODING BY: N. DEALEY 1978 DISC MODS BY CHUCK CARPENTER 1979$ ADDITIONAL MODS BY MIKE SMITH 19818255: SPEED =175 B::6:I1      4 "TYPE IN THE NUMBER OF YOUR CHOICE "" ";D BELL$;:70O FLAG0o CHECK$"1":10:FLAG13510~ FLAG3520 3530 2000 FLAG0 CHECK$"2":10:FLAG13550 FLAG3560 3570 D$;"RUN INTRO-TMA" FLAG0 CHMMANDS" 30000- :"WOULD YOU LIKE TO"3 W* "1) GO OVER THIS LESSON AGAIN"]4 > "2) LEARN ABOUT T: M: A: INSTRUCTIONS"H R "3) LEARN ABOUT THE OTHER INSTRUCTIONS"\ f "4) LEARN ABOUT GRAPHICS AND SOUND"p z "5) QUIT"ҠӢԺԺԢԺȺҠŠҠƠҠŠͺٺŭͺٺŭͺٺҠҢͺٺТʺź΢ԺȺӠΠϠŢźĢź΢ԺȺӠΠϠŠźĢ ӠΠƢԺԺԮŠ͠ӠȠӢԺԺƠŠԠӠԠΠԠԠ΢ԺԺŠҠӢԺպ΢ú٬ˠעԺȺԠĠӠŠſͺúԺٺ٠Ġ̠ŠϠҠӠΠαͺ٢ٺú٠αɠԠΠՠԢԺԺӮӠ͠ΠŠҠԺԺԠԠŠϠӠҮԺԺԠӠŠҠؠҧԺԺԠӠΠƠҠ٠ӠŢԺȺǠŠԠƠΠҠɺŢԺԺԺҠΠǠԠҠΠŠԺԺŠŠӠŠ΢ԺԺҠŢԺɺȺԠӠҠſɺԺպ΢ԺԺӠ΢ԺԺԢԺɺȺӠŠɺɺӠΠŢԺԺӢԺȺӠŠɺӠΠŢպ΢úȺӠ͠ŠԺĠΠԢԺԺŠҠӠΠŠŠŢԺԺԺӠӠ̠ŢԺɺֺϠϠŠȠŢԺɺֺϠϠŠȠŢԺԺŠҠԠŠΠĠպ΢úȺӠԠϠΠ٠ŢԺɺԺӠŢɺɺӠ΢ԺԺӢԺԺӠŢɺԠɠĠҠˢպ΢úŠԠԺӠŢԺɺֺĠȺԺԺɺֺ̠ ΠŠŢԺɺȺŠĠǠΠŢպ΢úֺ̠ՠԠՠԠҠǢԺԺԠΠΠŠǢԺԺԺԺϠԠŠӠРƠŠŧԠŠРƠŠŢԺȺŠĠӠɺúРƠŠŢպ΢ԺԺαĠՠŠϠϠҢȺŠӠ΢ͺ٢ٺԺԺӠŢԺԺӠŠӠŢԺԺŠĠɺŠӠŢԺȺӠɺŠӠŢԺԺԺɺӠŠӠŠΠŢպ΢úΠŠҠĠŠĠúԺԺӠҠͺ٢ԺٺǠΠŠɠԠԢٺϭͺ΢κúŠŠĠŠӠƠŢԺԺԺĢԺɺԺٺκԺԺŠҠ̠ӠŢԺɺɺȺúֺպ΢úŠĠԺŠȱŭºĽúɠŬԠӠҠſԺαúɠŠαֺԺӠ͠ӠՠŠĢԺԺΠΠŠӠԺͺԺԺԺȺŠՠҠŠҠƿ     z#????Xð   ӯĠ ҠҠ ϲ ŭ ԮҠҲ ҠҲԮŭ ԮԠŠ  ԠŠ ԮӯĠ  !Π"ԮϭԮŭ ɭԠŭ ԮҠҠ ϭ   '   1982 ԭà/Ҡ1 ԮΠ ϠPILOT`m~`BASIC.   .                 2 1730000B160,L:"J: OR JUMP COMMAND"2V[`"THIS ALLOWS YOU TO JUMP AROUND IN"ajt"THE PROGRAM ACCORDING TO THE STUDENT'S"~"ANSWER""SUPPOSE YOU WANT THE STUDENT TO CHOOSE""BETWEEN THE PROGRAMS " DISK CONTROL:19000u30020: PROCEDURE RETURN!DuENu"PRESS RETURN TO CONTINUE"" ";UXuBELL$;:70[buay`:6:"LESSON EDIT DESCRIBE "j10:"GENERATED USING PILOT->BASIC"::"M. SMITH FEB 1982"tJ13000:J~BELL$(7): BELL CHARACTERD$(4):ECK$"3":10:FLAG13590(FLAG360023610LD$;"RUN OTHER INSTR"WFLAG0w$CHECK$"4":10:FLAG13630.FLAG3640/36508D$;"RUN GRAPHICS/SOUND"BFLAG0LCHECK$"5":10:FLAG13670V`2001j:D$"RUN HELLO"ͺٺӯĢͺºТʺź΢ԺȺӠΠϠŢźĢΠԠԺͺӢԺԺΠԠŠҠӢԺԺΠԠӠĠĢԺԺԢԺȺŠΠŠҠƠҠŠͺٺԠŢͺٺϭͺٺҠҢԺРҠҠӢԺԺРҠԠӢԺԺ̭ڭɩҠҢԺԺ̭РԠӢպ΢úĠՠŠϢԺԺϠҠӠΠ΢ԺԺԺ٠̠ΠՠԠΠԢԺԺ̭ ŠϠŠǠƠԺԺŠŢԺԺŠ̭ΠӠՠϠŠĢպ΢ԺԺէ̠ŠϠŠĠԢպ΢úŠŠŠРӢԺӠŠ٠ҢԺԺϠŠƠŠЮ̮Ů͢պ΢úŠӠ̠РՠϢԺԺԠĮҠԠԠŢԺԺ̭ؠŠŠŠȢԺԺ̭ҠүǠˠŠŢԺŠŠҠԠΠŠŠբԺԺŠǢԺԺӠӠ٠ǠǠ̢ԺԺՠԠĠϠԮҠŠբԺԺĠŠҠӬէ̠ҢԺԺԠՠҠĠŢԺԺŠҠŠРĠՠ̠ŠĠԢԺԺȠĠӢԺԺԺΠՠŠǠԧΠǢԺԺР̠̠ՠԠŠԧԺԺӠ̠΢պ΢úԺǠ̭̠̠ՠנϢԺԺ̭ТԺԺԠӠŠ̠ĠРԠŢԺԺŠŠ̠ŠՠԠƠ̢ԺԺŠĠԠӢԺԺŠȡպ΢úΠՠԠƠΠŠҢԺȺՠ̠ŠĠɺԿԺԺټҾպ΢úǠΠǠΠ̤̤̤̤̤ԺԺɠΧԠΠҠԠԢԺԺԠӠԢԺԺԺԺϠРՠŠҠ͠ӠԺԺРӠԠ΢պ΢úŠŠՠΠҠŠԢԺԺ͢ԺɺԠҾɺԺŠҾɺԺŠҾɺźҾɺĠҾɺҾԺպ΢ԺԺԺנŠ͠ӠΠŠ٢ԺԺŠԠȠŠĢԺɺŠԠŢúŠӠΠǠ͠ŠԺԺӠӢԺɺΠҠҾԺԺҠŠ٢ԺɺנҾԺԺŠŠ͠ŢԺɺĠҾԺԺҾӠ΢պ΢úԠӠ     E TO PRACTICE AND EXPERIMENT"( 30000K :"THESE ARE THE HELP THINGS"Q { "HELP FOR EDITOR REQUESTS"  "HELP FOR EDIT COMMANDS"  "CONTROL-A (AIDEZ-MOI) FOR CURSOR"  "CONTROL-P PILOT CO 10 "CONTROL-R RECOVER/BRING BACK THE LINE"7: bD "VERY USEFUL WHEN YOU DIDNOT MEAN IT"hN X "CONTROL-B MOVE TO THE BEGINNING OF "b l "THE LINE"v  "WHILE CONTROL-N TAKES YOU TO THE END" 30000  "YOU'L HAVBEFORE"  9 "THE CURSOR COMMANDS ARE VERY SIMILAR"? g "TO THOSE OF THE 'P.L.E.' PROGRAM"r 30000 :"THESE COMMANDS WILL HELP YOU TO"  "GET STARTED. AFTER THAT JUST PRACTICE"  "CONTROL-X MAKE THE LINE VANISH"&.T "MOVE THE CURSOR ABOUT ON THE LINE YOU"4^ Hh "ARE ENTERING"Nr z| "THIS IS A VERY CONFUSING THING UNTIL"  "YOU GET USED TO IT. HOWEVER ONCE YOU"  "USED THE CURSOR COMMANDS, YOU'LL WONDER"  "WHAT YOU EVER DID WILL BE TOLD WHAT" 3 "EACH COMMAND MEANS"9 ? l "WHEN YOU ARE DOING 'EDIT' THEN TYPING"r  "HELP WILL TELL YOU WHAT THE 'EDIT'" " "COMMANDS ALL MEAN", 300006 :@ "TYPING CONTROL-A WILL TELL YOU HOW TO"J E"F 5P "SAME TIME WILL GIVE YOU A LIST OF ALL";Z [d "THE VALID PILOT COMMANDS"an qx "NICE EH!"| 30000 :"WHEN YOU START OFF IN THE EDITOR"  "YOU WILL BE ASKED "" "; :"REQUEST?"   "TYPE HELP AND YOU( "I CAN'T EVEN REMEMBER WHAT PILOT". J "PILOT COMMANDS EXIST"P V \ "TO HELP YOU THE EDITOR PROGRAM HAS "  "HELP PROGRAMS BUILT IN"  30000 ( :"TYPE CONTROL-P" 2 < "THAT MEANS TYPE CONTROL AND P AT TH"END " $  . :""% 8 + B 6 L 30000< V B ` j j "NOW THE PROGRAM IS IN THE MEMORY"p t ~ "SAVE IT WITH THE COMMAND" :"SAVE " 30000 :"HANG ON HANG ON "BELL$" "BELL$" "BELL$" "BELL$" "BELL$"  p:"FRED " z 8 " MEANS RETURN"C 30000q :"AT THIS TIME YOU CAN ENTER THE PILOT"w  "PROGRAM"  :"*:START "  :"T:LINE 1 "  :"T:LINE 2 "   :"E: "   :00& 2020: PROCEDURE EDIT DESCRIBE0 3350\ :"THE STEPS IN MAKING A PROGRAM ARE "b t "AS FOLLOWS"z  :"RUN EDITOR "   *"CLEAR THE MEMORY" 4 >:"NEW " H R \"GIVE THE PROGRAM A NAME" f2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80Z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ(8)" "(8):ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70 ANS$ANS$A$:80 l20?160:34,0:::"LESSON EDIT DESCRIBE ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L   ;::"2":# P:"WHICH ONE "(7);+ ZA$7 dA(A$)\ nA1ĺ(4);"RUN EDIT DESCRIBE":} xA2ĺ(4);"RUN INTRO-TMA": A3ĺ(4);"RUN OTHER INSTR": A4ĺ(4);"RUN EDITOR": A5ĺ(4);"RUN PILOT->BASIC": (7)(7):10 $' :"WHAT PROGRAM ARE YOU AFTER":A"1) EDIT DESCRIBE":o"2) INFO ON T: M: AND A: INSTRUCTIONS":("3) INFO ON THE OTHER INSTRUCTION":2"4) RUNNING THE EDITOR":<"5) RUNNING PILOT->BASIC": F:"IF YOU ARE JUST STARTING USE " :70 buy2`:6:"LESSON OTHER INSTR "qj10:"GENERATED USING PILOT->BASIC"::"M. SMITH FEB 1982"tJ13000:J~BELL$(7): BELL CHARACTERD$(4): DISK CONTROL:1900(FLAG0)CHECK$"Y":10:FLAG143108FLAG4320B4330L2000R}"HANG ON WHILE I GET THE NEXT LESSON"D$;"RUN OTHER INSTR2"D$"RUN HELLO"0u30020: PROCEDURE RETURNDuNu"PRESS RETURN TO CONTINUE "" ";XuBELL$;00T3^"HERE WE USED J:START TO ALWAYS JUMP"9hhr"JN:NUMBERS TO JUMP IF THE MATCH WAS BAD"n|"JY:VOWELS TO JUMP IF THE MATCH WAS GOOD"30000:"DO YOU WANT TO GO OVER THIS LESSON""AGAIN? "" ";BELL$;:70 "dn:"JY:VOWELS" x4:"JN:NUMBERS":L:"*:VOWELS"R_:"..."er:"..."x:"J:START":"*:NUMBERS":"...":"..."":"J:START",6:"E:"@J300" ";:"VOWELS OR NUMBERS"%+U"THEN YOU WOULD USE THE J: COMMAND "[l"LIKE THIS"w30000 :" USING J: WITH LESSON PARTS":"*:START"(2:"T:VOWELS OR NUMBERS?"<F:"A:"PZ:"M:VOWELS΢ȺӠΠϠŠźĢպ΢к̺̺̺̺պ΢ѺúԺϠՠԠϠԺԺנӠ΢ԺԺҠԢԺȺŠŠҠƠҠŠͺٺӢͺٺϢʺź̢ԺԺԠΠŠŠĠŠ΢ԺԺ٠ŠĠкԺպ΢Ϻкպ΢Ժ̺ӠŠϠŠТպ΢̺պ΢ԺՠΠנӠŠӠƢԺƠՠȢԺպ΢úŠӢԺɺкĠ̺ԺԺŠĠϠŠϠԠĢԺԺנŠ͠ŠԠԠϢԺԺנԢԺպ΢úՠԠŠԠŠΠӢԺԺӠǠ٠ӠϺӺҠԢպ΢ѺúԺҠŠΠĠҢԺԺԠŠǠԮ֮ӠĠĠԢԺԺԠϠŠϠĢԺҺŠנŠˠϠŠŢºԧԠӠԠĠŧŠԠƠԠĢԺԺŠ͠ԠӠӢԺԺӠŠήƠՠŠԺԺĠҠΠӠˠҢԺԺ̢ԺԺӠӠŠԮԠӠȠӢԺԺŢԺպ΢úĠӢԺԺŠĠҠԠŠŢԺȺĠɺӺҠԢԺԺƠŠŠΧԠĠԠŢԺԺՠ̠ԠΠҠŠԠŢԺԺ̠͠ԠТԺպ΢úԺ̠бӢúɺ̠ΠӢԺԺŠԠǠΠӠӠϠ΢ԺԺŠӠΠҠƢԺȺΠŠӠΠɺϺȺΠŠӠƠɺѺԺպ΢úԺϠĠӠ    . :A$:" SAVE";#A$,:1 ALL$(7): BELL CHARACTER4D$(4): DISK CONTROL@:1900J"RUN HELLO" 2001( D$"RUN HELLO"F0u30020: PROCEDURE RETURNkDu"PRESS RETURN TO CONTINUE "" ";{NuBELL$;:70Xuy`:6:"LESSON GRAPHICS "j10:"GENERATED USING PILOT->BASIC"::"M. SMITH FEB 1982"tJ13000:J~BETHIS LESSON"0 $: "2) OR QUIT"*D UN "TYPE THE NUMBER OF YOUR CHOICE "" ";eX BELL$;:70pb FLAG0l CHECK$"1":10:FLAG13190v FLAG3200w 3210 2000 FLAG0 CHECK$"2":10:FLAG13230 FLAG3240 3250  D$;LINE TO THE TOP" 30000' 270,02 30000[ "YOU CAN DRAW THINGS LIKE BOXES IF"n "IF YOU WISH"y 30000 28,144 28,96 112,96 112,144 28,144 30000  : "DO YOU WANT TO " & "1) REVIEW , :"YOU MUST IMAGINE THAT THE SCREEN IS"2 Z "100 UNITS LONG BY 100 UNITS TALL"`" , "A POINT IN THE CENTRE WOULD BE DRAWN"6 @ "BY THE COMMAND GP:50,50"J T 30000^ :3:21h 140,80r 30000| "GL:100,100 DRAWS A O READ" d 0n "AT $20 US, NOT A BAD PRICE "6x A 30000W :"THE COMMANDS"] r :"TP: AND TL:"x ~  "ARE USED TO MOVE TO A POINT AND"  "DRAW A LINE FROM THE LAST POINT TO"  "A NEW POINT"  300002550* (4);"BLOAD LEDGER SHEET":2570_ "PICTURE "LEDGERSHEET" NOT FOUND ":K12000:Kj 216,0u 30000{ ( :2 "RATHER EFFECTIVE ON A GOOD MONITOR"< F "BUT THOSE USING T.V.'S WOULD FIND IT"P Z "NEXT TO IMPOSSIBLE TAM THAT PUTS 70 CHARACTERS"! L I V "ACROSS THE SCREEN. IF YOU HAVE A"O ` { j "GOOD MONITOR THEN THINGS WORK RATHER" t ~ "WELL" "THIS IS THE EFFECT. IT IS A HIGH RES" "PICTURE" 30000 : :3:21 "; :"GS:LEDGER SHEET"! ' S "IF THE APPLE CAN'T FIND THAT PICTURE"Y  "YOU WILL GET AN ERROR MESSAGE BUT THE"   "PROGRAM WILL NOT STOP"   30000 $ : . "CALL APPLE OUT OF PUGET SOUND" 8  B "HAVE A PROGRFF" ** 4"TURN THE GRAPHICS ON "" ";7 >:"GO:"= H_ R"TURN THE GRAPHICS OFF "" ";l \:"GQ:"r fx p z30000 : "TO LOAD A PREVIOUS PREPARED GRAPHICS"  "PICTURE CALLED LEDGER SHEET USE THE"  "COMMAND "" 20 K09:X:(768K),X:KV 104,168,104,166,223,154,72,152,72,96: ONERR PATCHu 2020: PROCEDURE GRAPHICS 3080 : :"TUTORIAL ON GRAPHICS"   "THE FIRST THING IN GRAPHICS IS TO TURN"  "THE GRAPHICS ON OR O2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80Z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ(8)" "(8):ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70 ANS$ANS$A$:80 l19B ?160:34,0:::"LESSON GRAPHICS ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L    . :A$:" SAVE";#A$,:1 A"  :"B:SPEED=120"" ( U "THAT ALLOWS YOU TO SLOW DOWN THE RATE"[  "THAT THE WORDS ARE TYPED ON THE SCREEN" 10 30000 "YOU SEE THE EFFECT THAT I MEAN""THIS IS "" ";$:"B:SPEED=10".8!* "LY: AND LN: ARE ALSO VALID",4 30000@> :"B: COMMAND"FH sR "THIS ALLOWS YOU TO TYPE IN ANY VALID "y\ f "BASIC COMMAND. YOU MUST KNOW BASIC"p z "OTHERWISE ERRORS CAN OCCUR"   "A USEFUL B: COMMAND TO REMEMBER IFK" & "ONE PROGRAM TO ANOTHER", 2 ` "THIS MEANS MAKING ONE PROGRAM RUN THE "f z "NEXT PROGRAM"  "FOR EXAMPLE:- TO RUN THE PROGRAM "  "GRAPHICS/SOUND, I WOULD TYPE"  :"L:GRAPHICS/SOUND"  T"  300000 :"THE COMMANDS G: AND S:"6 L "G: GRAPHICS"R e& "S: SOUND"k0 q: D "ARE COVERED IN THE LESSON"N X :"GRAPHICS/SOUND"b l 30000v :"L: COMMAND"  "THIS COMMAND ALLOWS YOU TO LIN"R:LESSON ON VOWELS"J 9T :"T:WHAT IS YOUR NAME? "?^ Kh :"A:"Qr _| :"...."e s :"...."y  :"E:"   "THE R: STATEMENT SIMPLY IS USED TO"  "REMIND THE TEACHER WHAT THE LESSON"  "WAS ABOU000. :"THE R: COMMAND IS SIMPLY A REMARK"4 d "IT TELLS THE TEACHER WRITING THE PROGRAM" "SOMETHING, BUT DOES NOT PASS THAT "  "INFORMATION TO THE STUDENT"  30000 "FOR EXAMPLE"" , :"*:LESSON"6 @ : ' :"T:LINE 2 - LESSON PART 1"-( F2 :"*:LESSON PART 2"L< nF :"T:LINE 1 - LESSON PART 2"tP Z :"T:LINE 2 - LESSON PART 2"d n :"E:"x    :"NOTE THAT THERE IS ONLY ONE "  :"E:"  30 - "YOU CAN CALL THE LESSON ANYTHING "3 C "YOU WANT"N 30000y :"THE LESSON CAN HAVE SEVERAL PARTS" "EACH PART BEING ONE IDEA" "FOR EXAMPLE" :"*:LESSON PART 1" :"T:LINE 1 - LESSON PART 1" COMMAND "" "; :"E:" & 1 30000N :"AN EXAMPLE WOULD BE"T h :"*:LESSON 1"n   :"TI:LINE 1"  $ :"T:LINE 2" . 8 :"E:" B L V ` "THIS LESSON WAS CALLED "" "; j :"LESSON 1" t ~ "G: S:" * 4( >"FINALLY "" ";D H:"B: J: L: U: X:"J RU \30000 f:"EACH LESSON PART MUST START WITH" p z"THE COMMAND "" "; :"*:PART NAME"   "AND THE LAST LESSON PART MUST END WITH"  "THE END ANS$ANS$A$:80 l1920; K09:X:(768K),X:Ks 104,168,104,166,223,154,72,152,72,96: ONERR PATCH 2020: PROCEDURE OTHER INSTR :"THIS PROGRAM LOOKS AT THE COMMANDS"  :"R: E: *:"   "THEN "" "; :2,1)ĂL1:' <L2:FLAG1:L11000:L1:3 FANS$""E PA$:A$""80e U(((ANS$)0)(A$(8)))80z ZA$;:A$(13)ı d(A$(8)A$(24))(ANS$)270 nA$(8)ĺ" "(8);:ANS$(ANS$,(ANS$)1):80 xA$(24)āJ1(ANS$):(8)" "(8);::70?160:34,0:::"LESSON OTHER INSTR ":4:34,3::60000{ FLAG0:LCHECK(CHECK$):LANS(ANS$): MATCH SUBROUTINELANS0LCHECK0LANSLCHECKıANS$CHECK$FLAG1:(L11LANSLCHECK1:L21LCHECK 2(CHECK$,L2,1)(ANS$,L11L    . :A$:" SAVE";#A$,:1 A0:! F24:(4);"RUN HELLO.C07"' d? ,(20(A$)2):A$:U 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;:: (21)::$:A$"+":800:(6:A$"PUBLIC DOMAIN SOFTWARE":300:8:A$"DISK VOLUME C07 - EDUCATION":300:14:A$"DISTRIBUTED BY:":300216:A$"THE BIG RED APPLE CLUB":300:A$"1301 NORTH 19TH":300:A$"NORFOLK, NE 68701":300 <X1200  . :A$:" SAVE";#A$,:1 A from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":s  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program   . :A$:" SAVE";#A$,:1 A180: 23( 24:(4);"RUN HELLO2". E CENTER STRING A$e B(20((A$)2)):B0B1r B:A$: from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":s  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program   . :A$:" SAVE";#A$,:1 A180: 23( 24:(4);"RUN HELLO2". E CENTER STRING A$e B(20((A$)2)):B0B1r B:A$: . :A$:" SAVE";#A$,:1 A;::"2":# P:"WHICH ONE "(7);+ ZA$7 dA(A$)\ nA1ĺ(4);"RUN EDIT DESCRIBE":} xA2ĺ(4);"RUN INTRO-TMA": A3ĺ(4);"RUN OTHER INSTR": A4ĺ(4);"RUN EDITOR": A5ĺ(4);"RUN PILOT->BASIC": (7)(7):10 ' :"WHAT PROGRAM ARE YOU AFTER":A"1) EDIT DESCRIBE":o"2) INFO ON T: M: AND A: INSTRUCTIONS":("3) INFO ON THE OTHER INSTRUCTION":2"4) RUNNING THE EDITOR":<"5) RUNNING PILOT->BASIC": F:"IF YOU ARE JUST STARTING USE "  . :A$:" SAVE";#A$,:1 A. :A$:" SAVE";#A$,:1 A. :A$:" SAVE";#A$,:1 A20510:20160&NA$"S"İ35010:20160HNA$"T"ij: CAN'T REACH HEREbNA$"U"İ27010:20160|NA$"X"İ22010:20160NA$"*"İ30010:20160NLNUMLNUM10:FLAG0ĺFLAG" GOTO "LNUM: HANDLE Y/N INSTRUCTIONSNFLAG0:P*****PLNUM"R2003054NMSENT$(SENT$,SIZE): GET ACTUAL COMMANDO>NA$"A"İ24040:20160iHNA$"B"İ21010:20160RNA$"E"İ28010:20160\NA$"G"ij: CAN'T REACH HEREfNA$"J"İ29010:20160pNA$"L"İ23010:20160zNA$"M"İ25010:20160 NA$"R"İK1134A$(M$,K,1)20010: VALID COMMAND;Ku LNUM" STOP:REM SYNTAX "SENT$:BADBAD1:1059:1059LNUMLNUM10:FLAG0ĺFLAG" GOTO "LNUM: HANDLE ERROR OF Y/N INSTRUCTIONSFLAG0: N******NSIZESIZEL:SIZE1MSENT$"":G THEN ";LNUM2A$"N"ĺ"IF NOT FLAG THEN";LNUM{SIZESIZE1:MSENT$(MSENT$,1)(MSENT$,SIZE1):LL1:A$(MSENT$,1)L21290: BAD SYNTAXA$"T"İ26010:1300: T COMMANDA$"G"İ40010:1300: G COMMANDM$"ABEGJLMRSTUX*"T$,L,1)":"1170^L:LNUM"STOP: REM NO COLON "SENT$:BADBAD1:1059:1059:LNUMLNUM10:A$(MSENT$,2,1):A$"N"A$"Y"A$(MSENT$,1):1220: HANDLE Y/N PARTL31290: BAD SYNTAAX LNUM;:FLAGLNUM1:LNUMLNUM10:A$"Y"ĺ"IF FLABADBAD1:1059:1059:1020_LNL(K)2ĺLNUM"STOP:REM DUP. LABEL ";SENT$:LNUMLNUM10:1020VNL(K)2:CPROCK;"GOTO ";LNUM`SIZESIZE1:MSENT$(MSENT$,SIZE)j1140:1020: INTERPRETE PILOT INSTRUCTIONtK4:SIZEKKSIZE~L1K:(MSEN"WRITE "ENAME$&PFLAG1Ğ:SENT$:^SIZE(SENT$):SENT$"END"200: NATURAL FILE END$SIZE21020: IGNORE TOO SHORT LINES.K(SENT$):MSENT$SENT$: THIS IS A LABEL?8K11130BK9ĺLNUM"STOP: REM BAD LABEL "SENT$:LNUMLNUM10:A$(A$,1):A$"N"ij)A$"Y"ī460M::"RUN OF "NNAME$::3:34,2W540nD$;"UNLOCK"NNAME$D$;"DELETE"NNAME$216,0&D$;"EXEC "ENAME$0*****D$;"READ "NAME$:SENTD$;"READ "NAME$SENT$:PFLAG0ĺD$;D0ĺ" HAD "BAD" SYNTAX ERRORS"=BAD0ĺ" HAD NO ERRORS"Cl"SAVE "NNAME$:"LOCK "NNAME$:"RUN"D$;"CLOSE "ENAME$BAD0500:10:NAME$" HAD "BAD" SYNTAX ERRORS "::"USE THE FILE ANY WAY "BELL$:A$A$""ĺBELL$BELL$:470((NEED$(K,1)));:(NEED$(NEED,1))0ĺ" GOSUB "NP$(J,1):S ^" GOTO "NP$(J,1): hK1NEED:((NEED$(K,1)))" STOP:REM NO PROCEDURE CALLED "NEED$(K,0)::BADBAD1:1059:1059 rNNAME$(NAME$,(NAME$)6) |PFLAG0430 :::NAME$ BAUMPS LNUM" STOP"% NEED0370K NP0360: NO PROCEDURES NAMEDj K1NEED:SENT$NEED$(K,0)v "J1NP ,SENT$NP$(J,0)İ340:320 6J:((NEED$(K,1)))" STOP: REM NO PROCEDURE CALLED "SENT$:BADBAD1:1059:1059 @K J370; T 1010: GO AWAY TILL ERROR OCCURS/ *****h 216,0:PFLAG0ĺD$;"WRITE "ENAME$: CLOSE OUT K19: LOCAL LABELS NL(K)1ĺCPROCK"STOP: REM NO LABEL "K:BADBAD1:1059:1059  NL(10)1ĺCPROC10" GOTO "LNUM: DIRECT END JD$;"DELETE EXEC."ENAME$$ d216,0S nNAME$"PILOT."NAME$:ENAME$"EXEC."ENAME$h xD$;"OPEN "NAME$ PFLAG0ĺD$;"OPEN "ENAME$ 50020: LOAD THE TITLE PAGE AND THE MATCH SUBROUTINE D$;"NOMON C,I,O" PFLAG0ĺD$;"MON C,I,O" 200$ ",14)% 2D$;"RUN PILOT."NAME$ <X(222):216,0:X13Ğ:"PILOT."NAME$" DOES NOT EXIST"BELL$BELL$:::"PRESS RETURN TO CONTINUE";A$:20 FENAME$"TEMP":62010:PFLAG1110: PRINT TO SCREEN ON PFLAG P100:D$;"UNLOCK EXEC."ENAME$ Z- PILOT->BASIC CONVERTOR$> M.R.SMITH NOV 1981Dg 304, 86TH AVENUE SE, CALGARY ALBERTA, CANADA T2H 1N7 :60020:10:"PILOT -> BASIC":::"TRANSLATE WHAT FILE"BELL$60 (NAME$:NAME$(NAME$"                : DELETE A LINE7'CHAR$"I"İ10450:: INSERTY'CHAR$"L"İ10530:: LIST'CHAR$"P"İ10570:: PRINT ON PRINTER'CHAR$"S"İ20380:: SAVE THE FILE'"INVALID COMMAND "TEMP$BELL$BELL$:61510:' ***** ADD LINESI'"ıV'10080:10030:`'CHAR$"A"İ10200:: ADD A LINEuj'CHAR$"R"İ10650:: ADJUST THE SPEED OF THE LISTt'CHAR$"H"İ61520:: HELP~'PRESENT0ĺ"NOTHING TO WORK ON":10180'CHAR$"C"İ10260:: CHANGE A LINE'CHAR$"D"İ10370:DITTING1'34,0::"EDIT COMMANDS ";::NAME$:e$'"A C D HELP I LI P QUIT RA S"::34,3.'1010: GO DISPLAY CURRENT LINES8'21:958:"EDIT COMMAND"BELL$:120B'(TEMP$)0ĺBELL$BELL$;:10040: BAD LINEL'CHAR$(TEMP$,1):CHAR$"Q(B$"I"B$"V"B$"H"B$"C")A$"T"ı`R(B$"C"B$"L"B$"O"B$"P"B$"Q"B$"S")A$"G"ıu\B$(TTEST$,2,1)fB$"N"B$"Y"ıp:B$;::" IN COMMAND NOT RECOGNIZED""NO SUCH PILOT COMMAND"BELL$BELL$:61520:OK0:' ***** LESSON ED $":2200OCOUNT2SIZE:(TTEST$,COUNT,1)":"Ă:"MISPLACED COLON":2200j A$(TTEST$,1):X113*A$("ABEGJLMRSTUX*",X,1)Ă:22004COUNT2ı>B$(TTEST$,COUNT1,1)CCOUNT4((B$"N")(B$"Y"))ĺ"MISPLACED ";::B$::2200&HILOT$"PILOT."ı+Y(TTEST$):Y22200EX(TTEST$):X02060eX1X9ĺ"BAD LABEL":2200TTEST$(TTEST$,Y1):2020 SIZE4:YSIZESIZEYX0:COUNT1(TTEST$):(TTEST$,COUNT,1)"$"XX1COUNT X((X2)2)ĺ"UNBALANCE COMMAND, ***** DISPLAY FILE TO SCREEN?:PRESENT0ıtSTLCURR7:ST1ST1: DISPLAY CURRENT LINESFIST12:FIPRESENTFIPRESENTCOUNTSTFI:COUNT" "COMM$(COUNT):: CHECK INSTRUCTIONOK1:TTEST$TEMP$:TEMP$"END"P IGNORE CONTROL-CE&CHAR1İ61010:: CON TROL-A l0CHAR16İ62070:: PILOT COMMANDS:CHAR18TEMP$PREV$:PT1:: CONTROL-RDCHAR21PTPT1:: -->NCHAR24TEMP$"":: CONTROL-XXBELL$;BELL$:: INVALIDEMP$(TEMP$,PT1):DCHAR13CHAR17510: AND CONTROL-QRSIZE0ıqCHAR17TEMP$(TEMP$,PT)21:39:958::CHAR14PT1000:: CONTROL-NCHAR6ľA$:XPT1SIZE:A$(TEMP$,X,1)Ă:CHAR6PTX:CHAR3ı:AR8430: <--R PTPT1:PTSIZEı: JUST MOVE CURSOR IF NOT AT END OF LINEi SIZE2TEMP$"": TEMP$(TEMP$,SIZE1): CHAR9470: CONTROL-I CADD1:PT1LAST$TEMP$:TEMP$"": LAST$"":PTSIZELAST$(TEMP$,SIZEPT1)T ,# 6TEMP$TEMP$LAST$:LAST$""C @CHAR2PT0:: CONTROL-B` JCHAR4390: CONTROL-Dw TSIZE2TEMP$"": ^PT1TEMP$(TEMP$,SIZE1): hPTSIZETEMP$(TEMP$,SIZE1): rPTSIZEı |TEMP$(TEMP$,PT1)(TEMP$,SIZEPT): CH# CADD1TEMP$TEMP$CHAR$:140O PTSIZETEMP$(TEMP$,PT1)CHAR$:140z PT1TEMP$CHAR$(TEMP$,SIZE1):140 TEMP$(TEMP$,PT1)CHAR$(TEMP$,SIZEPT):140 310:CHAR9CADD0: HANDLE CONTROL CHARACTERS "CHAR13CHAR17150AST$:22:PT: DISPLAY CURRENT LINEO CHAR$:CHAR(CHAR$): GET CHARACTERz CHAR$(34)CHAR$"'": REMOVE QUOTES CHAR26280: HANDLE CONTROL CHARACTERS CADD0PTSIZETEMP$TEMP$CHAR$:140 SIZE0(SIZE1PT1)TEMP$CHAR$:140"": TOTALLY NEW LINEU TEMP$PREV$:PT1:LAST$"":CADD0:150: INITIALIZE EDITu PTPT1: MOVE CURSOR ALONG SIZE(TEMP$LAST$):PT1PT1: KEEP CONTROL OF CURSOR PTSIZEPTSIZE1 21:39:958:: CLEAR COMMAND SCREEN% TEMP$;L/ TEXT-EDITOR  V FOR A SIMPLE TEXT EDITOR SET PILOT$="" IN LINE *****\| M. R. SMITH DEC 1981 304, 86TH AVENUE SE, CALGARY, ALBERTA, CANADA T2H 1N7.d255:60010n *****