' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `0@0@>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\LHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LONERR GOTO 60000P38400:26353j ------------------QS$"VOCABULARY MACHINE"QP$"SPECIAL EDIT" ------------------ QD$"11/12/83 11:15 LAJ" QC$" --------------------------- (DL$,2)"}PX$(41)S2$'"~PY$(41)S2$7"PD$(41)S1$D"DŲ I/O V"EOP$D$"OPEN"h"FRE$D$"READ"{"GWR$D$"WRITE""HQ$D$"CLOSE""IBL$D$"BLOAD""NFI$"SPIX""YźBL$"TEXTGET""R0:10"_10000"` ERR TRAP "a46939@ B'W(W$) C'W01ĺB$:100204 D'WOZĺB$:10020E L'2(W2):11T Q':O$(W):l V'(OZ2)4:8::W: g+W1000,2000,3000,4000,9000 Pò SETUP QÆPD$(41),PX$(41),PY$(41),PX(41),PY(41) RV249:H250:T252 SS253:G25856 TD$(4)!WB0 SAVE $P0İ258:100008100:(S)4999C10000Q(# EXIT b)#::O$(W):k2#269'D$"RUN SPECIAL EDIT"' MENU ':::QP$:'C1OZ:2(C2):8:C;". ";O$(C):$'(OZ2)4:1:"WHICH? ";U$;BA$;.'90:W$K$ T  X,YX8,Y# X,YX2,Y24 X,YX2,Y2>3900R< DRAW FRAME Y=3dFC07wG0,0C279,0CH0,118C279,118CI0C,00C,125J272C,0272C,125O21:1:868B$"DONE! (PRESS RETURN)";901000AD$"L"3500 3900# UP 4 X,Y1X,Y7E X,YX2,Y2V X,YX2,Y2` 3900n DOWN  X,Y1X,Y7 X,YX2,Y2 X,YX2,Y2G 3900H RIGHT I X,YX8,YJ X,YX2,Y2K X,YX2,Y2 3900 LEFD$(C)"U"HC0$# PX$(C)" "31199$ PX$(C)U2$3119N% PD$(C)"D"3111_& OX,OYNX,NYo' OXNX:OYNYu/ v AD$" "3900w AD$U$3900x XXO(AX$)90y YYO(AY$)13z 3{ AD$"U"3200| AD$"D"3300} AD$"R"3400 ~ "2999K$BA$2999!2003, 10000: DRAW O P0İ258:10000g OX0:XO0:OY0:YO0m  21:1::"DRAWING": :HC0 OXXO:OYYO C140 NXXO(PX$(C))90 NYYO(PY$(C))13 HC PD$(C)"D"HC3! P'24:17:"____ _";.(23:17::"AXAYAD":4)B LOAD V100:(S)1999a10000o EDIT P0İ258:10000800:7002901:37:90EM$K$K$"E"600K$"I"300K$"A"400K$"D"500K$"QPX$(C);:34:PY$(C);:38:PD$(C):A24:17:AX$AY$;:22:AD$;L1:40R`  MASK h!:"3:"NO. XX YY U/D";:24:"NO. XX YY U/D":#N120:N$(" "(N),2)$3N:N$DL$:%N2140:N$(N)&(17)N:24:N$DL$:AY$F$1V,24:H,22:T,1:F$AD$:G:(S)680AF$" "698XF$"U"F$"D"698oF$"R"F$"L"698}B$;:690AD$F$2000 SHOW DATA C1203C:7:PX$(C);:11:PY$(C);:15:PD$(C):C2140"3C20:30:3(DV20):H,34:T,2:F$PY$(DV):G:(S)660;PY$(DV)F$oV,3(DV20):H,38:T,1:F$PD$(DV):G:(S)66250:YN$"N"ĺB$:664PD$(DV)F$DVV,24:H,17:T,2:F$AX$:G:(S)650AX$F$V,24:H,19:T,2:F$AY$:G:(S)670PY$(DV)F$9pV,3DV:H,15:T,1:F$PD$(DV):G:(S)622Sq50:YN$"N"ĺB$:624ytPD$(DV)F$:PD$(1)"D"İ279:624uDVBV21: DVBV40DV20600V,3(DV20):H,30:T,2:F$PX$(DV):G:(S)DVDV1:655PX$(DV)F$,V,ĸմijշĶնĵմĴմĵյĵյĵձIJղIJՠijմĴյĵյĵՠĴմĴճĵճĴյĶշĹչĹՠյĶնĵշĸհIJնĶՠijնĶնĶճijմĴյĵյĵնĶճijճijճյĵՠčİձıձijմĵĸմĴՠıİյĶղIJIJՠĴնĵճĴմĵմĴնĶՠ̍ĹճķձյĶճĶնĶճĶճĶյĶյĵՠķշķշķճIJճijճķմĵճĴյķմĴՠķմĵմĴնĶՠĵճĸյĹյĹյĸՠյĵճĴճĴյķյķմĴյĵķշķշķճIJճijճĴնĵճĴՠĴնķյĴճijճijĸմĴյĶմĴյĵշķշķյĴղIJՠĹՠijմĴմĴհĹՠķոĹոĹհıհıճĴճijնĶշķՠĸձĹձķՠߍIJ     )"A"İ257:690WA$(6)F$#1 SHOW 7G6:26:WP$W10:1:WS$h12:15:WD$sC1713C:15WA$(C):  MASK !::O$(W):"4$"SENTENCE NUMBER (01-20): __": &" PICTURE NUMBER (011)"A"İ257:660WA$(3)F$JV,17:H,15:T,1:F$WA$(4):G:(S)660e(F$,1)"A"İ257:670sWA$(4)F$V,18:H,15:T,1:F$WA$(5):G:(S)670(F$,1)"A"İ257:680WA$(5)F$V,19:H,15:T,1:F$WA$(6):G:(S)680(F$,1xYN$"F"İ258:630WD$F$KV,14:H,15:T,1:F$WA$(1):G:(S)630f(F$,1)"A"İ257:640tWA$(1)F$V,15:H,15:T,1:F$WA$(2):G:(S)640(F$,1)"A"İ257:650WA$(2)F$V,16:H,15:T,1:F$WA$(3):G:(S)650(F$,N20İ254:501SN$F$-X DATA UbV,6:H,26:T,2:F$WP$:G:(S)699acC(F$)zdC01C20İ254:610eWP$F$lV,10:H,1:T,1:F$WS$:G:(S)610uWS$F$vV,12:H,15:T,1:F$WD$:G:(S)620w300:YN$"N"İ257:630N":399BWB1398KC(WS$,WB1,1)"@"(WS$,WB1,1)"["YN$"N":399UJK$""cKC1WB1sLK$K$" ":M(WS$,WB1)K$YN$"F":399WB0YN$"Y" GET SEN# V,4:H,26:T,2:F$SN$:G:(S)509SN(F$)SN01S6C139&7C$(WS$" ",C,WL)1810:C=9:C$:W:C$T$WBC:C39:316g;10:1:WS$n<C=WB$("00"(WB),2)>WL$(WL)?WB0Ģ10:1:WS$" ":398@WB1YN$"F":399A(WS$,WBWL,1)"@"(WS$,WBWL,1)"["YN$"":242"M$"CAN'T BE 1ST!":2420 LOAD VM$"LOADING PICTURE"::200:D$:| M$"LOADING PROGRAM"::200:D$:, FIND WORD -YN$"N".(F$,1)"A"399/WL70C171(F$,C,1)" "WLC1:C723T$(F$,WL):WB0 ;:2221:14:868:0 WORKING LM$"WORKING"::200:D$Rb YN/RTN p200:210~200:220 MESSES M$"OK?":241M$"DONE!":242M$"MUST BE 1-20":242M$"READY?":241M$"INVALID WORD!HAR [XS,0:K$c' MESS 81:14:868FB$;M$;:LY Y/N o" (Y/N)";U$;BA$;~90:YN$K$YN$"Y"216YN$"N"216B$;:212YN$ RTN " PRESS RETURN";90K$RT$228B$F$: < UC TO LC * =F$(R$,7):N09 >C8(R$)J ?K$(R$,C,1)] @K$" "NN1i AN276x CK(K$)32 DK09776 EK12276 FK$"I"(R$,C1,1)" "(R$,C1,1)" "76 KK$(K) LF$F$K$ MC NR$F$ OZ GET CR$QT$WP$" "WB$WL$WS$% *C168 +R$R$WA$(C):@ ,60R -OP$WI$",L89"c .WR$WI$",R"Rk /R$s 0Q$y 1 2 LC TO UC 3F$"" 4C1(R$) 5K$(R$,C,1) 6K(K$)32 7K6558 8K9058 9K$(K) :F$F$K$ ;:R$:R$"*"R$:W4İ50C !WP$(R$,2,3):WP(WP$):WP$("00"(WP),2)_ "WB$(R$,5,2):WB(WB$){ #WL$(R$,7,1):WL(WL$) $WS$(R$,8,39):WD$(WS$,WB,WL):WD$(WD$" ",7) %C16 &WA$(C)(R$,40(C7),7): ' ( WRITE SWORDS  )",R"R:R$:Q$ C1408 PX$(C)(R$,((C1)5)1,2)W PY$(C)(R$,((C1)5)3,2)x PD$(C)(R$,((C1)5)5,1): AX$(R$,201,2) AY$(R$,203,2):AD$(R$,205,1)   READ SWORDS OP$WI$",L89":W4İ230 RE$WI$",R"R:R$:Q$ROPRIETARY INFORMATION * * (C) COPYRIGHT 1983 * * JOHNSON ASSOCIATES * * 6342 WEST BELL RD. * * GLENDALE, AZ 85308 * * (602) 979-4554 * --------------------------- " 50000 READ SPIX OP$FI$",L206" RE$FI$f(CALLPEEK(40222)+PEEK(40223)*256+1>ONERR GOTO 60000P38400:26353j ------------------QS$"VOCABULARY MACHINE"QP$"WORD EDIT" ------------------ QD$"02/08/84 16:30 LAJ" QC$" --------------------------- * P          PD$(40)S1$&M$"":280%:700/W2003AX GET DATA OaBV01: ]bDVBV20kgDV0699lV,3DV:H,7:T,2:F$(PX$(DV),2):G:(S)DVDV1:615mPX$(DV)F$:PX$(1)S2$İ259:620nV,3DV:H,11:T,2:F$PY$(DV):G:(S)620 oPD$(LN1)S1$M$"":280%7001BVLN1@BV21610OBV20650X600h DELETE q294110:(S)2000291ELN39PX$(E)PX$(E1)PY$(E)PY$(E1)PD$(E)PD$(E1)PX$(40)S2$PY$(40)S2$ BV21610BV20650#6003 APPEND <293P110:(S)2000eLN01İ257:400zLN39İ257:400291E40LN21PX$(E)PX$(E1)PY$(E)PY$(E1)PD$(E)PD$(E1)PX$(LN1)S2$PY$(LN1)S2$ INE NUMBER TO DELETE: ":M3:2800, INSERT 9-292M.110:(S)2000V5291hJE40LN11|KPX$(E)PX$(E1)LPY$(E)PY$(E1)MPD$(E)PD$(E1)SUPX$(LN)S2$VPY$(LN)S2$WPD$(LN)S1$^M$"":280r700BVLN  EDIT MESSES "1:1:868.B$M$:8!: k"M$"EDIT, INSERT, APPEND, DELETE, QUIT? ":280#M$"WORKING"::280$M$"ENTER LINE NUMBER TO INSERT BEFORE: ":M1:280%M$"ENTER LINE NUMBER TO APPEND AFTER: ":M2:280 &M$"ENTER L2M$"NO PICTURE!":242JM$"CAN'T BE BLANK!":280:1:16:220:290] LOAD/SAVE M$"LOADING PICTURE"::200:D$:P1:M$"SAVING PICTURE"::200:D$: M$"LOADING PROGRAM"::200:D$:M$"MUST BE 'D'":280:1:16:220:290 200:210200:220$4 MESSES FM$"OK?":241ZM$"DONE!":242M$"ENTER PICTURE NUMBER: __":200:M$"MUST BE 1-20":2421:1:868:M$"MUST BE 1-40":242M$"READY?":2411:1:868:M$"MUST BE 1-39":24 (Y/N)";U$;BA$;90:YN$K$/YN$"Y"216@YN$"N"216NB$;:212WYN$]j RTN " PRESS RETURN";90K$RT$228B$;:2221:14:868: WORKING M$"WORKING"::200:D$ YN/RTNPN$F$ kW1İ261:10:2524 lW4İ262:20:252: mJ n GET LN r oV,1:H,37:T,2:F$LN$:G:(S)119 pLN(F$) qLN1LN40İ255:M292,293,294:110 sLN$F$ w MESS 1:14:868 B$;M$;: Y/N "̍մĴնķոĸչĹՠıնĶՠղIJմĴնķոĸչĹՠčİղIJյĴՠ̍IJշķձIJձIJհıհıՠİĶյĵյĵշķյķՠIJձıղıյĵմĴոĸշķոķհıճĴհıՠčĴճijղijճijմĴճĴնķնմĴշķՠčĹոĸՠĵմĴյĵյĴմĵյĵՠıձķձķձķղĶՠĹշĹհİղijմIJմĴշķշķոĸճijյĵյĴյĴՠıճIJմĴղĶձķոĸոĸչĹչĹՠčĴĵմĵՠҍıշķնķյĵմĴճijճijՠİՠıճijմĴյĵյհıճĴհıՠčijմijճĴոĹշĹՠҍĹıյĵմijմĴշĶշķՠıշķՠijչĴմijՠհĴճİչijմĹՠİձıձijճijյĸհİհİՠčĴՠčĶնĶշķճijՠՍĶմĴՠ̍ijմķնĶչİճIJճIJճIJճIJճijճĴճIJշĸշĹոķՠ̍ijշĸճĸՠčIJղıճIJIJյĵղIJյĵշķնĶյĵՠҍijĶյķճĵյĵյĵյĵյĵՠմĴյĵՠıձıձıձĵՠհıոĸոĸոĹշĹմĵյĵյĶղՍijղIJղijյĴՠıձİհıոĸոĸոĹշĹմĵյĵյĶնčıձİҍĴմijճIJճıնĸնĹմĵմĴյĵճijյĵնĵՠIJղİղijճĴյķչĶՠնĶձIJղIJնĸոĸՠҍİճijճijճijߍߍıճĹձĴշķշķշķշķՠҍնĶմĴոĹոĸՠҍİոĸշķշĸշĸոķշĸշĸոķոķijճijՠՍIJմĴյĶĸոĸնİնĶճĴձIJՠ̍IJղķշķճĸոĹչĸճĶՠĵյķղIJճĴՠմķյĵմĴՠҍĴղĶղijձIJհIJճĵմĶոĹոĹճղijՠIJղĹձĶղĸձijնĸձIJղIJշķշķմıղİհIJձıղıհIJձĸձĸոĹոĹչķչĹոĹնĴմijճĵհҍĵմĴմijշķՠıհİղĴճijշĸշķՠՍIJյĵյĶնĶմĵմĵմĵմĵմĵՠĹղıնĶյĵմĴոĸձıհİձIJհıՠčijյķմĴմĴճijմĴհĹձijճĴյĶնĶնĶյĵյĵյĵյĵյĵՠĹնĶյĵՠĵմĴյĴշķճijՠҍĸոIJn             մĵՠĵյĶնĵյĵյĵնĶĵճĴմĵյĶնĶնķճİմijՠĶճĶճijմĴմĴյĵճĴհİհİհİյĵՠҠҠҍĵչķճյķմձIJճĴՠĵշķնĶնĶշĸՠĹıճĴյĶՠķնĶնķշĸղIJճijձijձijղIJղIJIJՠҍijչĹոĸշķնĶյĵմĴճijղIJձյĶյĴյĵՠ̍IJղIJճijձİճijմĴնĶՠčijĶՠՍIJղijմĵմĴնĶնĶՠߍķոĹոĹհıհıճĴճijնղĸձijնĸձIJղIJշķշķմķմķյĵմĴՠ̍ߠıձıշĸոĸյĵյĵճĴյĶնĵմĴՠIJղĹձĶմĴՠIJղIJղijհijմĵյĵյĶճĶշĸոĸոĹնĹՠՠ̍ıհĹմijijմijմĴնĶշĶշĸՠIJղIJҍİշĶնĶնĵյĵյĴմijճijՠİՠĸնĶղijշĸՠնķշĶՠIJչĸՠմĴոĸշķնĶնĵյĴմijմIJմIJհIJչĹՠĴնĶղĸղĸմĵյĴմĵĶյĵճĵյĴնķՠĴijհıյĹղijմĴշķմĴձIJՠղIJմĴնĶՠİչĸղijճĴճĴյĵձijՠՠĴղIJձĵձĵĸհĵշİշķշķշķոĸոĸՠ̍ıՠčıղIJղIJղIJղIJղIJղIJղIJՠ̍շĸՠIJղĹձĶղĸձijնĸձIJղIJշķշķմķմķյĵմĴոķնĶոĸձIJճĴյĶշĸչĹճҍijչİղIJձIJոĸշĸղıճijճijմĴյĵՠҍİհĶյĵնĹհҍĶնijմIJՠҍijնĸղijՠčķոĴյĵճĴճĴղıղıձıձİijհİհİհİՠčIJղĴշĸոĸշĴՠĹհՠĸչİՠčĵնĶՠİշĸյĶմĵմĵյĶՠIJղIJնĶնĶնĶնĶյĴմijճĴմĵՠĶյĵİՠĴijղijՠķոĹչķյĴչĹչĹնĹնĶՠնķշķնĶճijՠĵձıղIJյĹհİձıձıղմĴմĴղĴճijճijՠijĸշĹոĹշĹմijձIJՠĶճĵՠčĹնĶձĶՠշķշķշķշķշķՠĴճijղIJղIJճĴճĴնĶյĶՠĵձıIJշķՠķշĶչĸՠՍijհİճĹճĹՠijյķշķՠIJղıղİıղĴղĴղijմķշķշĹձıձıձıձıղIJձҍıյıճijճߍİնķճIJոĸհĹհIJշĹհijߍijմķնĹղIJķմijոĸչİĵյķյĵնĶՠնĴնĵյĵՠIJղIJչİՠĶղĴոĹոĹոĹոĹոĹոĹՠĶİհIJմIJղĴյĵյķոĸՠՠĵմĵմĵմĵՠĴմĴճijյĵմĵմĵմĴմĵմĴՠĴճijճĴյijնĶĸոĸնİնĶճĴձIJՠijճĶմոĸճıհıՠĴչĶմĵյĴնķճIJՠչĵչķչķշĵՠĸյĸչĹմĴճĸոĸյĴոķյĵշĸհIJճijճijճIJղIJճijճijՠIJոĴմĵոĸնĹմĴմĴմĵճĵՠķշķĶՠİհıոĹոĸՠıչĹՠķճĶմĴմĴյĴմĵմĵյնĶղIJհıձıյĵՠİձıձıձĹձIJմIJճĵնĶնĶՠ̍İղIJčĴճĴմĴմĴչİՠĴճĹՠĸհİոķոĸՠձĸճijՠIJձIJղIJշĹճİհİՠıձIJĵհİձıղIJյĵՠIJķնĶյĶհİհİհİՠĹոĸոĸոĸոĴմĴչĹՠղijմIJմĴշķշķոĸոĸհčIJմĴոĹղհİհİհİհİյĵչĹչĹչĹչĹյĵմĴղčĹշĹհİՠҍĴհİհİհİհİյĵչĹչĹչĹչĹյĵմĴՠĴմĵմĴՠҍıմĴյĵմĴմĴճĵհķշķմĴՠijնĶճIJնķճĴնĵյĵձıշķշķՠĵճķյĵճijշĵՠijմĵմĵյĶնĶձĸղIJճijմĴյĵնĶշķձĸձĸձĸՠčĵճķմĵijմĵմĵյĶնĶձĸղIJճijմĴյĵնĶշķձĸձĸձĸշİշķշķշķոĸոĸՠčĶմĴնĶմĶմĴՠհĵշİշķշķշķոĸոĸՠ̍ĸհĵ̍İղIJճijճijյĵնĶնĶշķոĸչĹՠĸ̍ķմĴյĵյĴմĴյĵյĵՠմķնĶմĴՠķմĴյĵյĴմĴյĵյĵՠղIJղijճĸոĸՠĴճijճijճijնĶĴՠİհijհİչĸշĵմIJձİճҍIJղIJղIJճijհİղIJՠհĹմĴչĸշĵմIJձİՠijմijշķհĹմĴմĴյĵյĵնĵնĵՠijմijշķIJձıղıյĵմĴոĸշķոķյĴՠĶնĶijճijճĴճijհҍĹձıղIJյĵնĶՠմijղijղijճijճijճĴճijՠijճĴճijյĵնĵմijղijղijճնĶնĶոĸշķշķհijհijհijհҠҍijճĴճijյĵնĵĴձĹճijձıմĴյĵնĹՠİIJձIJՠčճijյijնĴնĴճijշķՠĶմĴյIJՠմĵյĵՠĶյķճijՠĶմĵՠĠčijհİհİոĸչĹՠ̠̍ĵչĹՠ̍ijհİհİոĸչĹİոĸչĹՠҠҍijհİհİոĸշķնĶնķՠijհİհčĶմIJշĹչĸՠčijճijձıՠĶմIJշĹչĸՠղĴճĴմĴնĶՠĶմIJհıձijճIJմĶՠıնĶՠĹչķղıոĸչĹճijշҍĴշķնĸՠčıղijղıյĴյķշĶձIJմĵմĵճĴճĴճIJյĵղҍıմĴնĸշķմĴյĵյĴմĵճĴճĴճIJյĵՠĶմĴյĵյĴĴմĴղčĶմĴյĵյĵմĶմĴյĵյĶՠĶձıղIJմĴճijմĴմĴՠijմijհĴհıձıղIJմĴճijմղıոĸչĹճijՠijմijհĴհıղijղĴճĵճĴնĸՠҍĹչķչ̍ıհIJղijղĴճĵճĴնĸՠıհIJıձIJմijմĴնĵոĸձıոĸձıձҍķյĶյĶճĶճĶճĶճĶճĶճĶճĶճĶՠijճijմĴյĵնĶճijմĵՠıձIJմijմĴնĵՍijմĴճĵմĵմĴյĵճĴյĶմĴմĴնĸշҍijհՠĴմĴնĶշĶՠĴմĴնĶշĶճĵմĵմĴյĵճĴյĶմĴմĴնĸնčĵչİՠ                                                                  ijնĶճIJնķճĴնĵմĵմĴՠ̍ijմĴijնĶճIJնķճĴնĵմĵմĴՠՠĹձıձĸմĴնĶՠĹղĵղĴյķյķշĹշķշķՠĸնĵմIJշķĹշıոĹնķշķշķոĸոĸոĸոĸչĹչĹչĹՠIJհIJղĴՠĴմĴՠĵչĸչĸհĵհıմĴմĴմ̍ĴմijմĴյĵՠնĶյĵնķնĵհĹոĸմĹյĹյĹնĹյĹնĹյĹՠĶոĹհĹչIJչIJչİՠIJߍĶնijՠҍ0z#0     ̠ԠSWEPSŠˢC1983ˠŠǠΠàԠԩؠؠӠ "Ԡ Ԡ ŠԠĠԠ(13)!rQT$(34)*!U$(95):U2$U$U$7!XS49168@!OZ5S!O$(1)"CHANGE"g!O$(2)"LOOK UP"|!O$(3)"LIST ALL"!O$(4)"SHOW PIX"!O$(5)"EXIT"!IJ FILLERS !SN$("01",2)!DŲ I/O !EOP$D$"OPEN"!FRE$D$"READ" "GWR$D020 D'WOZĺB$:10020) L'2(W2):118 Q':O$(W):P V'(OZ2)4:8::W:p g+W1000,2000,5000,4000,9000 Pò SETUP QÆPD$(40),PX$(40),PY$(40),PX(40),PY(40) RV249:H250:T252 SS253:G25856 TD$(4) WB$(7) XBA$(8)!]RT$ Q$252'o100005(# EXIT F)#::O$(W):O2#269i'D$"RUN SPECIAL EDIT"w' MENU ':::QP$:'C1OZ:2(C2):8:C;". ";O$(C):$'(OZ2)4:1:"WHICH? ";U$;BA$;.'90:W$K$B'W(W$) C'W01ĺB$:10(WD$,C,1))(CAC,K):*MA,255:CAC,0:RA:MA,0H~B$:90:S10000e LIST ALL v::O$(W):OP$WI$",L89"230R120RE$WI$",R"R:R$:R$"*"R$50:333RWS$3R:WB(WS$,WB,WL) ------------------8QS$"VOCABULARY MACHINE"OQP$"PICTURE DISK"l ------------------ QD$"11/25/83 20:10 LAJ"w QC$" --------------------------- * PROPRIETARY INFORMATION * * (C) COPYRIGHT 1983 * * JOHNSON ASSOCIATES SS##MA24941:0=NORM,255=INVERSE.#_10000@#` ERR TRAP K#a46939@-QS$"VOCABULARY MACHINE"QP$"WORD EDIT" ------------------ QD$"11/25/83 18:00 LAJ" QC$" --------------------------- * P$(7)!XBA$(8)!!]RT$(13).!U$(95);!XS49168D!OZ5U!O$(1)"LOAD"f!O$(2)"EDIT"w!O$(3)"DRAW"!O$(4)"SAVE"!O$(5)"EXIT"!IJ FILLERS !U2$U$U$!DL$" __ __ _ "!PN$U2$:LN$U2$!#S1$(DL$,1)"$S2$00 3000  DRAW WORDS =VA,17:HA,1:C1(WS$)QK((WS$,C,1))]CAC,KcsCAC,0:RA~W16VA,18W:HA,1C17K((WA$(W),C,1))CAC,K: CAC,0:RA!W"VA,17:HA,WB#C1WL $K(< DRAW FRAME =3#FC076G0,0C279,0CMH0,118C279,118C`I0C,00C,125wJ272C,0272C,125}O SHOW PIX 800500:(S)10000W0RSN:30700W4:30RWP:10256:YN$"N"100,Y2 X,YX2,Y2 3900- DOWN > X,Y1X,Y7O X,YX2,Y2` X,YX2,Y2jG 3900yH RIGHT I X,YX8,YJ X,YX2,Y2K X,YX2,Y2 3900 LEFT  X,YX8,Y X,YX2,Y2 X,YX2,Y23900$(C)"D"3111& OX,OYNX,NY.' OXNX:OYNY4/ Fv AD$" "3900Ww AD$U$3900jx XXO(AX$)90}y YYO(AY$)13z 3{ AD$"U"3200| AD$"D"3300} AD$"R"3400~ AD$"L"3500 3900 UP  X,Y1X,Y7 X,YX200 252 10000$ DRAW 2 OX0:XO0@ OY0:YO0F Q :HC0a OXXO:OYYOm C140 NXXO(PX$(C))90 NYYO(PY$(C))13 HC PD$(C)"D"HC3! PD$(C)"U"HC0# PX$(C)" "3119$ PX$(C)U2$3119 % PDTERNATE #6: _______"* CHANGE 3800H500:(S)10000URSN:30d M$"":200m700L600:(S)1000V251:YN$"N"1000`230j40t25210000 LOOK UP 800500:(S)10000RSN:307-20): __":("SENTENCE:":O*"_______________________________________":f,"CORRECT WORD:":."ALTERNATE #1: _______"/"ALTERNATE #2: _______"0"ALTERNATE #3: _______"1"ALTERNATE #4: _______"2"ALTERNATE #5: _______"3"AL22)+PEEK(40223)*256+1 @ONERR GOTO 60000R38400:26353l ------------------QS$"VOCABULARY MACHINE"QP$"PICTURE EDIT" ------------------ QD$"02/09/84 11:00 LAJ" QC$" --------------------------ō * * 6342 WEST BELL RD. * * GLENDALE, AZ 85308 * * (602) 979-4554 * --------------------------- " ::QC$:@$),1)" "PX$(1)"0"(PX$(1),1)+ C140D PX$(C)PY$(C)PD$(C);J Y AX$AY$AD$a Q$g ~ 2 CHECK UP/DOWN 3YN$"N":F$" "F$"U"F$"D"59 4F$" "(PX$(DV)" "PY$(DV)" ")59 5F$" "YN$"Y":59 6DDDV111 7E$FI$",R"R:R$:Q$ C140= PX$(C)(R$,((C1)5)1,2)\ PY$(C)(R$,((C1)5)3,2)} PD$(C)(R$,((C1)5)5,1): AX$(R$,201,2) AY$(R$,203,2):AD$(R$,205,1)   WRITE SPIX OP$FI$",L206" WR$FI$",R"R (PX$(1- * PROPRIETARY INFORMATION * * (C) COPYRIGHT 1983 * * JOHNSON ASSOCIATES * * 6342 WEST BELL RD. * * GLENDALE, AZ 85308 * * (602) 979-4554 * --------------------------- " 50000 READ SPIX OP$FI$",L206" R*CALLPEEK(40222)+PEEK(40223)*256+1 @ONERR GOTO 60000R38400:26353l ------------------QS$"VOCABULARY MACHINE"QP$"PICTURE EDIT" ------------------ QD$"02/09/84 11:00 LAJ" QC$" -------------------------- "       {88E  :8_2 :8 , :80 :8: :88I"',;:;[i8  % "$  % "($ `e إkl8 ijɀ888-F%ɀ8ii% "$ _ % "e$ )8*8 8r  8  ߍĹնĶ                                        ĵհĹՠĹմĵմĴնĶՠijշķշķճIJճĴնĵմĵճĴմĴնĶՠՠҍķշķշķճIJճijճĴնĵճĴնķյĴճijճijյĵճĴճĴյķյķմĴյĵıյĵĶճijղIJղijճijղijՠҍĴՠĵՠĹշķղĴղIJչĹհİճĴնĵմĵճĴճĴնĵնĵճķՠĹՠՠĸմĴյĶմĴյĵշķշķյĴղIJՠĴĵյĶյĵճijնĶՠijմĴմĴհĹՠշĸշķՠķոĹոĹհıհıճĴIJշķՠķĸձĹձķՠĸՠՠĵՠմĴնĶՠՍİճıձIJճijյĵշķչĹՠՍĵճĴմĵմĴնĶՠ̍ķշķշķճIJճijճĴնĵճĴմĵչİճIJճIJճIJճIJճijճĴճIJՠҍķշķշķճIJճijճĴնճĸյĹյĹյĸՠčijմķնĶՍĵճĸյĹյĹյĸՠčĵՠĹհijհijչĸճijՠնĶճĶճĶյĶյĵՠıոķշijճijձijշĸճķյĵՠčķյĶճĶİհĶնĹչĹՠıհİհİշķղIJյĵՠıչĹՠմĵճķճĴյĶՠĸոķոķոĸշķշķչĹղIJՠıյĵճĠĶնĶճijնĶղĸյĵձIJՠĹķմĵճĴյķմĴՠՠĵճĸյĹյĹյĸՠհijհijչĸճijՠıղIJշķնķՠijմķնĶչİճIJճIJճIJճIJճijճĴճķնĶնĶնĶնĶշķշķՠİձıղIJճijմĴյĵնĶշķոĸչĹձijմĵյĶնĵշĸհIJնĶՠijյĵմijմĵմĵնIJՠİձıčijճĴղIJնķճijչĹշĸշĸշĸմնĶնĶշķշķնİձĶՠıյĵՠߍİߍĸմĴՠߠߠIJճķմķՠҍIJՠߍĵՠҍĵՠ߱ՠčıճijյĵշķչĹՠճķձİյĶղIJյҍIJշķĹճķձİյĶղIJĹķՠıյıչĴչĴչİչĶյijճĴմĵնĶշķՠķչķՠıյıչĴչĴչİչĶյijճĴմĵնĶնչĸչĸչĹչİհIJՠİմĴշķչķհķհĸՠĹհĶյijĵijոķնĵղijհıձķձķհĶնĶշķշķշķշķշķոĸՠ̍İՠյĵնĶնĶշķշķշķշķշķոĸՠ̍ijյĵնIJՠĹյķշķմĴշĶհĹՠijķյĶյĵնķոĸՠĹճijղIJչIJղĹչĸոĸոķնķնմĴղIJշķղĸյĵՠİչĹնİՠĴմĴճĵճĴյĶշĹչĹՠIJĴմĴճĵճĴչĵՠյĵյĵղIJճIJճijմĵմĵՠIJՠĶնĶճijմĴյĵյĵնĶճijճijճijմĴյĵյĵՠıշĵյĵշĵIJՠıնIJչIJչijհijմķղijճĴմĵմķյĸյķնĹշĹՠijնյĶհıհıնĶնĶոĸոĸձıձıߍıմĴմĶչİհijհijնĹշĹնĹߠߍĴճĵճıճıյĸߍĶմĴղIJճijմIJմijմĹմĹմĹմĹߠߍĴIJճĶմĴյĶՠߍĶճIJնķճıնĸմIJնķյķնĶߍıճijղijմĸձijմķղմĴյĵշķշķյĴղIJՠĴյĴմĴIJշķյķնķյĴՠčĸմĴĸնĵմIJշķչĹչĹչĹչİՠՠմijՠĹՠčķՠĵյĵ̍ĹՠҍıնĶՠնĶնĶնĶնĶնĶՠıնĶՠıղIJղIJղIJղIJղIJղIJղIJՠĵҍİհĹհĹհĹհĸհĸհĸձķղķղĵճĵճĵճĴնķձıճIJմijյĴնĵշĶՠնĶյķնĶՠҍIJմĴնĶոĸՠձıոĸ̍ĸյĵճijղĴճijչĹյĵՠijճijմĴյĵշķշķշķՠ̍ĶյĵյĵշķյķՠҍIJհIJղĴչĸղijĴճĴնķնĶյĵյĵշķյķՠ̍ĴճijղijճijմĴճĴնķնĶճijղijճijմĴճĴնķնĶյĵյĵշķյķՠ̍ĴճijղijճijմҍĴճijղijճijմĴճĴնķնĶյĵյĵշķյķՠҍĴčĵյĸմĵմĴձĹՠ̍ĹհĵՠղIJմĵյĶշĸճĴՠĴնĶՠߠߍıնĵմĵճijճijղıյĵղIJߍĸղIJնķշķոĹմijնĶՠİշķճijչĹ߸ձıհİձIJհıՠčĴղĴյķձĴյĸձķմĴմĴյĵճijճķĹնĶմĴյĶճijձıճijߍĹյĵՠijշİղIJղijճijշķոĹչĹߍİչĹոĸյյĵձIJߍijմĵղijշĸմĴմĶյĴմĴյĵմĴՠҍĹճijմĴյĵҍĴմĴՠĴՠčıչĹձĸղĸճķՠıչĹձĸղĸճķՠIJյĶՠĵմĴմĵնĵշķնĶնĸյĵՠIJնĶĶղĴՠĵճĵմĵմĶմĶյijյĴնĴմijմĴյĶՠշĸոĸչĹՠ̍ĵճijճijճijմĴմĴմĴյĵյĵյĵնĶճĴյĶշĸՠĶմĵյĵİչĹհĹհĹհĹհĹձıմĴյĵնĶշķոĸղIJճijՠIJհշķՠĶհĶհİղIJմĴնĶոĸոĸչĹնĶմĴղIJՠİհİճķչĹձıձıմĴմĴշķմĴմĴճijՠҍĹձĹհıչĹչĹհıՠշĵչĹոĸհIJՠĴմĵմĴմĴ̍ijշķՠҍijIJմĴնĶոĸՠĴմĶյՍijնĶճIJնķճĴնĵմĵմĴմĶմҍĴҍijնĶճIJնķճĴնĵմĵշշĸոĸշĸշĸճĵյķՠՍĴյĴՠշķճIJճijճĴնĵճĴմĵմĴնĶՠҍijյĵĶՠҍĵղijճĴճijճijնĶյĶյĶյĶյĵյĶյĵՠ̍ķշĴĵմĵմĴՠՍķշķշķճIJճijճĴնĵճĴմĵմĴնz                               !!! ! ! ! ! !!!!!!!!!""" " " " " "     ijնĶճIJնķճĴնճĶոĸոĶոĹմĵհıՠčĶնĹՠĸոĸնİնĶճĴձIJՠčijĵմĴմĵմĴՠҍĹձĵնĵՠ̍ijճĶմĴմĴճijյĵմĵմijշķՠՠčijճĴնĵմĵյĴմĴճĴյĶմijնĵՠijշķՠյĵոĸՠĹձıճijմĴնĶհĹղIJյĵոĸնĶշĶՠĹձıճijմĴնĶհĹղIJčĹնĶնĵղıձıյչIJչıՠĸչĹղIJճĴյĶնĵՠıմĴշķՠոĸոĸոĹհIJղIJշķոĸոĹչĹչĹՠİձıղIJճijմĴյĵնĶշķոİոĸոĸոĸոĸՠĹչĹĵմĴյĵյijղIJյķՠıՠĶյĴմĴմĴմĴյĵյĵյĵմĶՠıոĸչĹՠijճijճijճijղĴղijĴղIJղIJնĶնĶյĵĶնĶյķնĶնĶղҍķմĴյĵյĵՠմĴյĵնĶոĸմĴղIJճijՠĹշķղIJՠյĵմĵյĵմĵմĵմĵմĴյĵմĶՠĴճIJղIJճijղIJճijոĴնĶճĴմĴՠĵմĴıՠčIJղıձıհıհİհıձıձİձıՠҍĴҍIJղıձıհıհİհıձıձİձղIJղijճijղijՠ̠̠̍ĵհĹՠմĵմĴմĴմĴմĴճijՠ̍ĶճijĵՠյĵճijյĵյĵճIJշķշĶյĴյĴյĴյĴՠĸմĴՠմijղIJղijղIJձijղIJղIJղIJՠՍĴշĶՠķմĶմĶմĶմĶմĶմĶճijճijճijճijճijճijՠķնĶՠİոĸշķշĸշĸոķշĸշĸոķշķշķոķշĶնĵմĴմĵյĵյĵձIJղIJՠĴշĶնĶճijնķմĴմĴյĵՠ̍ĸմijčıհİձıձıղıձıհİՠĵճĴյĶնĵՠčıմĴշķՠյĵՠՍIJհİձıղIJճijմĴյĵնĶշķոĸչĹղIJղIJշķճĶղķնĶճijճijյĵճijՠ̍ĵĹչĸմĴյĵշķՠĵնĶՠ̍ĵմķճĶնĵնĶնĶնĶնĶոĹչĹձձıյĵյĵյĵմĴմĴմĴնĶՠĹձıհİյijմĴմĴմĴմijՠİհĠıձIJճijմĴճĴմĴյĵնĶշĶոĹչĹշķշĸՠIJղIJijճijղijՠijմĵմĴյĶոķճĵճijձıՠĶճijղIJղĶչնĶմĴմIJճıճijղIJչĶՠĸմĴմķՠĴմķոĸմĴյĵնĶշķոķՠմĵնķոĸճijՠIJճĶմĴմĵմĵՠĴմıIJմĴղIJղIJճIJՠҍijշķնķՠIJղIJՠյĶՠıղIJմijճĴմĴյĵյĵյĶճĴյĵՠijճĴնĵմĵյĴմĴճĵղĴղĴոĸոĸճĴճijղijղijճĴճijղijղijհĹՠĵĹձıղIJճijմĴյĵնĶշķոĸչĹճijնĶնĶհĹհĹՠĴմĴյĵՠĹհİհİհİյĵՠҠҠķշķշķՠĵյĵճijճĴնĵմĴմĵմĵմĵՠijշķշčĶշķմķղĵՠĴնĸնĶՠķճijմĵՠijճķնĶճijՠҍĶҍIJՠ̍ķճչĹճijմĴմĴճijմĴՠčĵմĴյĵյijղIJյķՠոĸոĸճĴճijղijղijճĴճijղijղijհĹղҍķնķնķհĴոĸոijյĵճijճĴնĵմĴյĵՠčĴղĴղĴՠ̍ĹհİհİհİյĵՠĵճijղIJչĶՠՍIJմĴղIJղIJճIJոĴշķնĶյķշķնķմĴղҍĶչնĶմĴմIJճıղIJղIJղIJղIJղIJղIJղIJՠ̍ıձĴĴմĴմĵՠ̍ıՠĴմĴմĵՠķՠ̍ĹճijմĴՠIJշՠĵհĹՠĵմĴՠıձĴոĴշķնĶյķշķնķմĴյĵյĴմĴյĵյĵՠijճĴIJղıձıհıհİհıձıձİձıհķմĴIJմĶմĵղķմĵմĸնĶՠķճijնĴճĶՠIJղijijյĵՠıշĸշķճIJոĸճijղijձĹղķıյĵյĵյĶյķնĶնĶնĶճҍĵղijճĴճijճijնĶյĶյĶյĶյĵյĶնĵմIJշķՠčĵճĴմĴմijճĴմĵճijմĵՠĸ̍ıմĴնĸշķշķնĸՠҍķմĴմĴճĵհĹՠıմĴնĸշķշķնĸՠնĸշķշķնĸՠčıմĴյĵմĴնĸշķշķնĸՠҍıմĴIJՠ̠ĴղIJոĸճijմĴհıձIJհİհİձIJՠҍıҍĴղIJոĸճijմĴհıձIJհİհİձյIJյIJճIJշĸմijյĵՠijմĵնĶնĶնIJմķՠIJĴճijՠıճijմĵհķճijճķնĶĴմĴյĵյĵմĵIJՠIJıնĵմijնĶյĵմĴշķնĶոķշķՠķղIJճĴշķՠĹմijճIJղıյĴճIJձIJձijղĴմĶյķշĹՠİĴյĹհĴՠձıոĸıհİչĹհİչĹհĹհĹհĹղĸմĵնĵĶķմĴՠijķյĵՠĸճĴնĶղIJնķճijĴյĸյĶճijյĵնĵյĴնĶմijճĵPD$(DD)" "582 8PD$(DD)F$DD1:YN$"Y":58G 9PD$(DD)F$DD1M :S ;_ DYN$"Y"e Ew Z GET CHAR [XS,0:K$ c d GET PIC# & LOAD/SAVE e253 fV,1:H,36:T,2:F$PN$:G:(S)109 gR(F$):R01R20İ254:100 h>>:P(o(`abcdefghijklmnopqrstuvwxyz؍```FFF8````` `````` ` `````m```m```i ``i ``e ``i ` `m ` ` `m `> <"<"""<< <"""<"><$""< """"  0 $"" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>>>"*6"">""""""""""""">>>"2""""">""">>8 "  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6""""""""> >>> >00000>"666>>< (&20 *,*>*>> "2*&" >"  >"  ">> """>"""""""<    >> " ````i``i`8 ````8`O  iibIiiiLQ``````:P(o(`abcdefghijklmnopqrstuvwxyz؍```FFF8````` `````` ` `````m```m```i ``i ``e ``i ` `m ` ` `m `""""""յĸմķշĸմĸմijմĴճıմIJմijճIJմIJՠĶոĹհĶՠĴIJղIJՠߍĵճķմĴմĵձıշķշķՠճıմĹմĹՠߠıմĴնĸշķշķնĸՠijߍIJնķոĹķՠ