' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 ?Lˆʎõĵ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õ`  \ 濭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- ( ] à@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`,117O ' 76,60,128,72,8,169,118,76,60,128,72,8,169,119,76,60,128,72,8,169,121u '76,60,128,72,8,169,122,76,60,128 9,4,74,144,253,104,233,1,208,245,136,208l '235,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ' 72,8,169,112,32,224,127,40,104,96,72,8,169,113,76,60,128,72,8,169,114 ' 76,60,128,72,8,169,115,76,60,128,72,8,169,116,76,60,128,72,8,169LOAD DATA($1100),A$6100"$ X25136* +6 X-AXIS< H Y-AXISN '160,9,24,72,176,7,169,0,141,209,192,144,5,169,1,141,209,192,169,3 ' 72,169,4,74,144,253,104,233,1,208,245,104,106,136,208,223,160,2,169( ' 1,141,209,192,169,3,72,16w/ PLOTTER. HALLGREN INT. PROJ.F. THE APPLE:30000ZI0160:K:(32800I),K:`csd MAIN PROGRAM}n:12vx"INPUT THE SCALE FACTOR (3";x H$:H$"X"ĺ"EXIT";:23: H$"A"H$(BT("A"))430 H$;:R(H$)("A")T ** GET FILE TYPE OF CHOICE ** VR:F$(SC(2)128) C$"RUN":T2Ģ1:35,T1:958:35,24:T2:21((A$)2)::A$: T2A$(A$,23):A$(SP$,1,((23(A$))2)A$SP$::I123:I:38:" ";(A$,I,1);" ";:: ,** GIVEEACH FILE A LETTER ** 6I0BT @IT:3:"..";: J(I("A"));::".." T 76,208,3+ d** GET CATALOG ON SCREEN **7 n:1000P x44452,255:44513,67c (4)"CATALOG"z 44452,22:44513,2 ** FIND FILE LIST ON SCREEN ** B(37):T5 B23āT15:VT:SC(5)160ĂT ** WRITE TITLE (A$) ** A$6 8,252,169,11,133,37,32,36,252G ^169,15,133,36,169,194,32,237,253,169q _207,32,237,253,32,237,253,169,212,32 `237,253,169,191,32,237,253,32,12,253 a201,217,208,6,32,237,253,76,0,198 b201,206,208,239,32,237,253,169,22,133 c37,32,36,252,]% ** PROGRAM GIVES MENU OF **I ** ALL LOCKED FILES ON A **m ** DOS 3.3 DISK, AND ** ** ALLOWS ONE TO BE RUN **** WITH A SINGLE KEYPRESS **P1010,0:1011,3:1012,166ZI768834[J:I,J\I ] 32,8     126: CALL BLOT%XXTEMP:YYTEMP/(7)GSC(TURN)SC(TURN)1[SC(OP)SC(OP)1bJhoIu 0+ IF WE GET HERE, CAPTURE IS POSSIBLE6FLAG1DCC(TURN)[BOARD(X,Y)0159p126: CALL BLOTBOARD(X,Y)TURNSC(TURN)SC(TURN)1J1NRXNXNDX(I):YNYNDY(I)BOARD(XN,YN)TURNXTEMPX:YTEMPYXXN:YYNX8134Y((MOVE$,1))480Y1Y81346S FIND AND EXECUTE MOVES^FLAG0OP3TURN: COLOR OF OPPONENTI18NR0XNX:YNYXNXNDX(I):YNYNDY(I)BOARD(XN,YN)OPNRNR1:149(BOARD(XN,YN)0)(NR0)17}<~ SUBR BLOT FILLS IN A SQUARE WITH THE CURRENT COLORE122QX2XS2_XS,X2YSoXS,X2YS1XS,X2YS2 SUBR GETMOVEMOVE$PASS0(MOVE$,1)"P"PASS1:(MOVE$)2134X((MOVE$,1))64X1,531n32,1o32,5%p1,533?q NOW DO BOARD ITSELFVrDC: BORDER COLORdsI7394pt4,36IwuIvI4364w8,38IxIyz SUBR MAP FINDS SCREEN COORDS (XS,YS) GIVEN BOARD COORDS (X,Y){XS14X|YS404Y9[ NEXT "T"\11,131)]2,5128^ NEXT "H"D_1,515N`16,3Za1,517ib NEXT "E"uc1,519d20,211e20,3f20,215g NEXT TWO "L"Sh1,523i24,255j1,527k28,295l FINALLY ANOTHER "O"m1C(2),K"WOULD YOU LIKE TO PLAY AGAIN?";A$@L(A$,1)"Y"35JM::qN SUBROUTINE TO DRAW OTHELLO BOARDwOPBCQI039R1,39ISITTC: TITLE COLORU PLOT "OTHELLO"V FIRST "O"W1,57X8,1Y8,5Z1,5ŭBOARD(X,Y)062' B143: CALL MOVES6 CFLAG062Q D((SC(1)SC(2))64)71o E((SC(1)0)(SC(2)0))71v FQ GSC(1)SC(2)ĺ"WHITE WINS!":74 HSC(1)SC(2)ĺ"BLACK WINS!":74 I"IT'S A TIE!!"J"FINAL SCORE: WHITE ";SC(1);" BLACK ";SBLOT 4X5:Y4! 5BOARD(X,Y)26 6126: CALL BLOTB 7SC(2)2M 8TURN2c 9 BEGIN MAIN LOOPp :Q1100 ;TURNM2(TURN)1 <CC(TURN) ="SCORE IS: WHITE ";SC(1);" BLACK ";SC(2) >PROMPT$(TURN) ?133: CALL GETMOVE @PASS70 A "I18:DY(I):I #I09* $J09; %BOARD(I,J)0D &J,IL '78W (WHITEc )X5:Y5t *BOARD(X,Y)1 +126: CALL BLOT ,X4:Y4 -BOARD(X,Y)1 .126: CALL BLOT /SC(1)2 0BLACK 1X4:Y5 2BOARD(X,Y)2 3126: CALL UT WHITE MOVE:"2 PROMPT$(2)"INPUT BLACK MOVE:"> BLACK0K WHITE15[ CC(1)WHITEk CC(2)BLACK BC12: BACKGROUND COLOR TC13: TITLE COLOR DC4: BORDER COLOR  0,1,1,1,0,-1,-1,-1 1,1,0,-1,-1,-1,0,1 !I18:DX(I):I* ALL RIGHTS RESERVED *6 * *T ************************Z ` f w  INITIALIZE BOARD(9,9) CC(2): HOLDS CURRENT COLOR PROMPT$(2) SC(2) DX(8):DY(8) M2(Q)Q(Q2)2 PROMPT$(1)"INPw  ************************? * *^ * GAME OF OTHELLO *} * C.F. TAYLOR * * * * COPYRIGHT (C) 1982 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *      ,63,201,39,16:%247,168,32,255,26,145,2,96,32,14,27,133,12,32,14,27,10,10,10,10,5,12,96,56,165,7,101,10,101,11,133,6,162,4,181,6,149,7,202,16,249,165,6,41,15,141,48,192,96% 0,0,173,48,192,136,208,5,206,41,27,240,9,202,208,245,174,40,27,76,42,27,968,245,230,5,165,5,201,5,208,233,32,63,255,96,32,255,26,41,63,201,39,16,247,170,189,48,25,133,3,189,88,25,133,2,32,255 0%26,41,7,201,7,240,247,24,105,17,168,32,255,26,145,2,96,32,255,26,41,63,201,39,16,247,170,189,48,25,133,3,189,88,25,133,2,32,255,26,41,28,0,0,60,96,1,15,0,0,112,1,96,3,0,0,64,15,124,0,0,0,0,124,15,0,0%32,74,255,169,0,133,1,133,5,162,5,181,78,149,6,202,208,249,169,0,133,4,32,180,26,230,4,165,4,201,127,208,245,230,1,165,1,201,3,208,233,169,0,133,4u&%32,219,26,230,4,165,4,201,127,20,1,24$ 6,0,112,0,3,24,6,0,96,1,0,24,6,0,64,1,0,24,6,0,96,7,0,24,14,0,112,12,0,28,12,0,48,12,0,12,28,0,24,24,0,14,24,0,24,24,0,6,24,0,24,28,0,6,56,0,56,12,0,7B$ 112,0,48,14,64,3,96,1,112,6,96,1,64,1,96,7,96,0,64,3,96,3,112,0,0,7,96,3,56,0,0,14,96,30,15,0,0,14,31,56,28,0,0,7,59,124,56,0,64,3,119,111,112,0,64,1,6,96,96,0,96,1,6,96,96,1,112,0,7,96,64,3$ 56,0,3,48,0,7,24,0,3,48,0,6,24,0,3,24,0,6,28,0,7,24,0,14,12,0,6,24,0,12,14,0,6,48,0,28,6,0,102,55,0,24,6,0,110,60,0,24,6,0,124,124,0,24,6,0,56,64T$32,74,255,169,0,168,170,133,0,164,0,185,48,25,133,4,185,88,25,133,3,160,17,189^$128,25,17,3,145,3,232,200,192,23,208,243,230,0,165,0,201,40,208,221,32,63,255,96$I65286974:A:I,A::g$0,0,124,15,0,0,0,64,15,124,0,0,0,112,1,96,3,0,0,60,14,63,63,36,63,36,36,0,-1"F#AD6448]P#I01:J01:K07:AD(I16J8)K,32(4K)I:::Z#K07:AD(I16)K,32(4K)I:d#Q04:J07:(Q2)(Q2)W0:9080n#W1x#AD(I15)10J(8Q),128W#:S$I64006447:A:I,A::9399Q9030^I,A:II1:8020{(#3,0,8,0,31,0,43,0,45,45,45,45,45,64,36,164,146,82,41,45,45,45,45,221,219,219,219,210,54,54,02#36,37,45,45,46,54,54,55,63,63,60,36,0,36,36,45,36,45,45,36,45,45,45,54,45,45,54,45,54,54,54,54,63<#54,63,63,54,63,63,63,36,0):HCOLOT7KI2011:1.05I1:I:2EX,EY:6952,I40:6953,3:6954:0:I2011:1.05I1:I:2EX,EY:6592,20I:6953,3:6954:DDDD1(DD4)(DD4)DLDL2DL2DL2TI0 20@I768J232,0:233,3TA:A11 TITI1 TIDL10000( 64002 4000@ 0:1X,Y{ 7:ISCSC15:I:SSEX,EY:6952,15I:6953,3:6954: 0:ISCSC15:I:SSEX,EY:6952,30I:6953,3:6954: SRSR10(101DI) 6400 DI0 EX((1)60)95:EY((1)8 ^EY121EY121* hEX95EX1654220; rEY90EY90s |DIDIQ((1)20):DI100DI100:((1)2)0Q1 D10DI0:((1)2)0Q1 DI30SC1:SS2 DI30DI70SC2:SS2 DI71SC1:SS3 7:SC:SSEX,EY TSSSC F1X,Y 50! (EYY)94120H T3EXX3EXX13(EYY)65000f T4EXX9EXX135000t F04140 "0:SC:SSEX,EY ,W((1)2)1:W2W1 6EXEXW((1)30):EYEYW((1)20) @EX0EX0 JEX260EX260 TEY8EY89,125 ^ 0,15533,155:35,15735,183:38,185241,185:243,182243,157:245,155279,155d s X140:Y90 0:1:1X,Y:PXX:PYY X(0) Y(1):Y124Y124 Y6Y6 X95X1654060 Y94Ē7:XPX:YPY:1PX,PY:50 7: 7I100,200,300) d7:1000:4:3000:A 7:2000:4:1000:Y ,7:3000:4:2000: 0,10584,105:86,10786,132:88,134190,134:192,132192,106:195,105279,105  0,12563,125:65,12765,153:69,155210,155:212,152212,127:216,12527Z!::10:12:"READING DATA"+ 8000R:16302,0:EX140:EY90:Q1:DL10\1:0f64007:0,10091,10091,130189,130189,100279,100#91,1000,191:189,100279,191(91,13030,191:189,130249,191-39992II1:I3I1     :"SAVE EARTH";B'16301,06L'(16287)12710060OV'(16287)12810070Y`':15:'7:1:I127205:I:2135,I:0:I5:2135,I5:7:o'I172:135I,0135I,130:135I,0135I,130:$'6768::21:7:"YOU MADE "SR" POINTS BEFORE":22:9:"PLANETARY DESTRUCTION".'23:"PRESS BUTTON (0) FOR ANOTHER CHANCE TO";8'24:15,5,230,133,9,162,80 160,0,177,26,36,50,48,2P73,127,164,36,145,8,230,26p 208,2,230,27,165,9,24,1054,133,9,202,208,226,165,69166,70,164,71,88,76,240,253255,255,255,255,255,255,255,255,255 I768856:A:CKCKA:I,A:UfCK8413ĺ"ERRORIN SECOND SET OF DATA STATEMENTS.":[p}z216,120,133,69,134,70,132,71166,7,10,10,176,4,16,6248,4,16,1,232,232,10,13427,24,101,6,133,26,144,2230,27,165,40,133,8,165,4141,355,24,24,24* 24,24,24,248,248,24,24,24F24,24,24,248,248,0,0,0f  24,24,24,255,255,24,24,24*204,153,51,102,204,153,51,102451,153,204,102,51,153,204,102>8,12,14,127,127,14,12,8H255,0,0,0,0,0,0,0R ** HROUT ML ROUTINE\0,0,0,0,0,0,255,2550255,255,0,0,0,0,0,0K255,255,255,0,0,0,0,0f0,0,0,0,0,255,255,25524,24,24,31,31,24,24,2424,24,24,31,31,0,0,00,0,0,248,248,24,24,240,0,0,31,31,24,24,2424,24,24,255,255,0,0,0 0,0,0,255,2D$B$NA3D$C$X0b ** SHAPE DATAUlI3609636263:A:CSCSA:I,A:vCS11534ĺ"ERROR IN FIRST SET OF DATA STATEMENTS.":128,128,128,128,128,128,128,1280,0,0,0,255,255,255,2550,0,0,0,0,0,0,00,0,0,0,0,0,0,25511)"2- BRUISE YOUR MIND?"::11)"3- BLOW YOUR MIND?"D16302,0_A(16384):A12755016297,0:16304,0:16300,0:16299,0:16300,0:16303,0:I150:520&16368,0:AA176:A1A35200230,32:3086:A1D$A$DA2K$"Y"T10:T20:T30:70"380D230,32:3086:230,64:3086^54,240:55,253:1002sP12:P:I18I,I279I,I279I,191II,191II,II:230,32:P11:26:" "611:11:"DO YOU WANT TO:"::11)"1- BEND YOUR MIND?"::P(X)P(X)210 ^S hI2123:I:14:H$::24:14:(H$,1,14);:I15:(7);: r22:20:"PUZZLE SOLVED!":20:"PLAY AGAIN?" |26:"Y/N";:K$ K$"N"ĉ:: T$(T1)"."(T2):R$(R1)"."(R2) R$"0.0"(T$)(R$)R1T1:R2T2T2;:170 10AC:38:" "5 ACAC1:AC1AC1O 10AC:38:"3";:210f ACAC1:AC8AC8y 9AC:38:" " "260 ,P(AC)P(AC)1:P(AC)1P(AC)1 6330 @P(AC)P(AC)1:P(AC)56P(AC)56 J10AC:24:(D$,P(AC),12) TX18:PAS FAST":14)"AS YOU CAN!!!";F KE(16384):J0:16368,0:JKE200{ T3T31:T312T30:T2T21:T260T200:T1T11 J0J5J0 J240,320,300,170,270 1:22:"RECORD "R1":";:R210ĺ"0"; R2:1:24:" TIME "T1":";:T210ĺ"0"; 6,0:7,141:54,0:55,3:1002V N18:PP(N)((3)55)1:2:1N:(D$,PP(N),12): N18:P(N)((2)55)1:10N:24:(D$,P(N),12): 11:38:"3" AC1:21:14)"USE THE I, J, K AND M":14)"KEYS TO MATCH THE PATTERN":14)"IN THE RED BOX 2212221212222121211112121222121111112212212"T F::5:" ";:I435:(95);::m P:14)"MINDBUSTERS" Z" ";:I435:(95);:::11:15)"PLEASE WAIT...":440 d:5:1,395,395,751,751,3 n6:154,76250,76250,147154,147154,76 x  360969R10:R20:H$" "B620(A$"'%!&%4&&!'$!&%4&&!'!&%4&!$!$!%%&!$$$'!&%&!'&!'#%$%$&!&%4$&##'%$%!&$&"2B$"/0(.+(+(*.)0+-(-..*+-.0++0+(/*)++0/*+0(+).++0/.(*+(+(/)/00+)+/()+*(+", <C$"1122211221212121211111212     US"::::10)"*"':24)"#"-E9)"+ ."\8)"+ ."i17)"."v18)"#" 16)"*#.":21)"+"24)"."27)"." ::4::10)"GEMINI":::>:20)"+"H14)"*."R12)"."S:20)"."X27)"*"&]18)".".b:Xl:8)"BOOTES (BJ\RNVAKTAREN"::::gv:19)"+"t22)"+":18)"+"22)"."21)"."20)"#"::19)". * +."20)".. . ."20)".":: :8)"TAUR18)"*"17)"+"#:22)"+"017)"+"=15)"+"N::26)"+"X::z:8)"CETUS (VALFISKEN)":::12)"."10)". ."&13)"."010)"+ +":13)"+"?:16)"*"D::22)". ."N19)". +" * +"':16)"+"+,:17)"* +"16X@:::10)"AURIGA (KUSKEN)":::mJ::::25)"*"T18)"+ +"^26)"+."h:18)"+"r29)"+"|::::::8)"AQUILA (\RNEN)"::::25)"+"19)"+""."16)"+"14)"*"3:15)"# . ."L:::7)"+ +"b:16)"+ *"q:20)"+"{::::10)"PERSEUS"::24)"+":23)"+"::20)".*"19)"."18)"+"::18)"+ *" "16)"::10)"HERCULES"::%23)". ."2(24)"."?222)"."N<:22)"+"]A17)". ."pF17)" + #"P:21)". +"U17)"."Z18)"+"_19)"."d20)"+"i25)"+"n::21)"+"sx:10)"PEGASUS"::::20)22)"+ +""21)"+"#:<:10)"DRACO":::K:26)"."X14)"."q16)". ."~13)"+"16)"+":27)"#"11)". +"9)"+ . + +"11)"+ ."18)" +"::+".:14)"."828)"+"&B:>L:10)"URSA MAJOR"PV:10)"* *"l`15)"* ."j17)"+ * ."t:17)"* + ."~27)". +":16)"."26)"."18)"+ ."::30)"+"*" p::&::10)"LYRA":::;::::25)"*"H23)"."U21)"."h:::22)"+"u20)"+"::::10)"CYGNUS (SVANEN)":::26)"."25)"."::17)"* +":19)"+"::23)"."$18)"LIS (NORRA KRONAN)":::, :::30)"+"E :22)"+ +"\ ::24)"+ +"k 26)". +"y :::: ::10)"URSA MINOR"::: *:20)"*" 4:18)"." >::17)"." H::18)"." R15)"." \:19)"*"f17)"." &:14)". * ."- 011)"+ +"5 ::L X:10)"ORION"::Y b20)"."m l16)"* *"s v ::::21)"+" 20)"*" 19)"+" :20)". ." :20)"#" 25)"*" 18)"+" : ::8)"CORONA BOREA *" r:::5 ::10)"ANDROMEDA":::G :::7)"*"T 18)"."c :16)"+"r :14)"*" ::20)"+" 24)"*" :: :10)"CEPHEUS":: :14)"+" :::16)"." :17)"+" 11)"+" ::17)":::10)"CASSIOPEIA":::0 :::12)"+"? 21)"*":V :7)"* *"e 27)".":q ::: ,::10)"LEO"::: @:::28)"." J30)"+" O23)"*" T:23)"+" ^" + +" h:" * + TER M FOR MULTIPLE CHOICE"9 q"W FOR WILD GUESSES ";W$Q r:::W$"M"ī3040[ s6000c v:v x"ENTER #1-20"} }B B0B20ī120 B2400,2430,2460,2500,2530,2560,2600,2630,2660,2700,2730,2760,2800,2830,2860,2900,2930,2960,3000,3030 ") 12)"CONSTELLATIONS":S0:D08::A(20)g"THIS PROGRAM DISPLAYS 20 CONSTELLATIONS"("AND THEN GIVES YOU A TEST."*:-I1202A(I)07Id:"ENTER R FOR REVIEW, T FOR TEST ";A$nA$"R"118o:: p"EN            MEDA"&B410&L8000)&jD$"CEPHEUS"2&t510<&~8000K&D$"ORION"T&610^&8000w&D$"CORONA BOREALIS"&710&8000&D$"URSA MINOR"& 810&8000&2D$"LYRA"&<910&F8000&dD$"CYGNUS"&n1010&x8000 'D$"UC1C4ī5050%-%p:::X(20(6))1@%uXYī6000:YX%zX6100,6150,6200,6250,6300,6350,6400,6450,6500,6550,6600,6650,6700,6750,6800,6850,6900,6950,7000,7050%D$"CASSIOPEIA"%220%8000%D$"LEO"%320%8000&8D$"ANDRO"(2) LYRA"!$"(3) HERCULES"4$"(4) GEMINI">$5050V$C4İ5000:A(20)10~$:8:PP2:"YOUR SCORE IS ";P;" %"$:"IT WAS NICE TO PLAY WITH YOU."$$PP10$:"CORRECT"$N080:X(N):N$$C0::"(#1-4?) ";C%TES" #U"(4) CORONA BOREALIS"*#Z5050B#_C3İ5000:A(18)10T#d:"19)":(2)^#i2010q#n"(1) TAURUS"#s"(2) CYGNUS"#x"(3) AQUILA"#}"(4) CETUS"#5050#C1İ5000:A(19)10#:"20)":(3)#2120#"(1) PEGASUS" $ " :5050#"C3İ5000:A(16)107":"17):VTAB(4)A"1810T""(1) TAURUS"f"#"(2) CETUS"x"("(3) ORION""-"(4) LEO""25050"7C2İ5000:A(17)10"<:"18)":(2)"A1910"F"(1) CASSIOPEIA""K"(2) CEPHEUS"#P"(3) BOO)10!:"15)":(3) !16107!"(1) URSA MINOR"K!"(2) PERSEUS"^!"(3) AURIGA"r!"(4) PEGASUS"|!5050!C3İ5000:A(15)10!:"16)":(2)!1710!"(1) BOOTES"!"(2) AURIGA"!"(3) AQUILA"!"(4) ANDROMEDA"(2) Q1410" V"(1) PEGASUS"5 ["(2) TAURUS"G `"(3) CETUS"Z e"(4) BOOTES"d j5050| oC1İ5000:A(13)10 t:"14)" y1510 ~"(1) GEMINI" "(2) PEGASUS" "(3) URSA MAJOR" "(4) LYRA" 5050!C2İ5000:A(13S" "(2) CORONA BOREALIS"2"(3) CEPHEUS"D"(4) DRACO"N5050fC4İ5000:A(11)10x$:"12)":(2))1310."(1) GEMINI"3"(2) HERCULES"8"(3) PERSEUS"="(4) ORION"B5050GC2İ5000:A(12)10 L:"13)":3) CYGNUS" "(4) GEMINI"( 5050? C3İ5000:A(9)10Q :"10)":(2)[ 1110r "(1) URSA MAJOR" "(2) AQUILA" "(3) CASSIOPEIA" "(4) ANDROMEDA" 5050 C1İ5000:A(10)10 :"11)"1210::"(1) TAURUu "(4) LEO"z 50501 C1İ5000:A(7)10B :"8)":(3)K 910\ "(1) LYRA"q "(2) HERCULES" "(3) CETUS" "(4) ANDROMEDA" 5050 C1İ5000:A(8)10 :"9)": 1010 "(1) AURIGA" "(2) AQUILA"  "(C2İ5000:A(9)10!4 :"6)":2*9 710E> ::"(1) CASSIOPEIA"aC "(2) CORONA BOREALIS"sH "(3) DRACO"M "(4) PEGASUS"R 5050W C2İ5000:A(6)10\ :"7)":(2)a 810f "(1) URSA MINOR"k "(2) PERSEUS"p "(3) BOOTES")10 :"4)":(2) 510/ "(1) LYRA"C "(2) PEGASUS"W "(3) CEPHEUS"j "(4) TAURUS"t 5050 C3İ5000:A(9)10 :"5)" 610 "(1) CASSIOPEIA" "(2) ORION" "(3) CEPHEUS"% "(4) PEGASUS"* 5050/ "(1) CORONA BOREALIS".l "(2) CASSIOPEIA"Bv "(3) CEPHEUS"T "(4) ORION"^ 5050u C2İ5000:A(2)10 :"3)":(2) 410 :"(1) DRACO" "(2) URSA MINOR" "(3) GEMINI" "(4) ANDROMEDA" 5050 C4İ5000:A(3 P0& :"MULTIPLE CHOICE TEST"J :"ENTER CORRECT ANSWER(#1-4)"V :"1)"] 2f 320p :: "(1) LEO" "(2) BOOTES" "(3) LYRA" "(4) ANDROMEDA" 5050& C1İ5000:A(1)10: :"2)"D 4N 220b ::0 2 118F 900P 118&d 1000/n 1189 1100B 118L 1200U 118_ 1300h 118r 1400{ 118 1500 118, 16006 118T 1700^ 118r 1800| 118 1900 118 2000 118 2100 100\11)"*. #"f:22)"+":p11)"+ ."Hu25)"++"Uz16)"."h18)". ."w:23)"*":::B 118` 200j 118~ 300 118 400 118 500 118 600 118 700 118( 8080E70ĺ"GOOD! YOU ARE ALMOST AS BRILIANT AS I!"m*E90E80ĺ"AMASING! YOU WILL MASTER THIS STUFF SOON!"*E90ĺ"I GUESS YOU ARE A PROFESSIONAL!"*(# ";D$1)r"ENTER 'Q' TO QUIT, 'C' TO CONTINUE";A$C)|A$"C"ī6000Q)ES100Dk)::"YOUR SCORE IS "):S;" RIGHTS OF ";D;" WHICH IS ";E;"%"::)E50ĺ"IT'S PRETTY BAD, ISN'T IT?")E70E50ĺ"QUITE WELL, BUT YOU CAN DO BETTER!"1*E"CETUS"(1810(8000,(&D$"BOOTES"6(01910@(:8000P(XD$"TAURUS"Z(b2010d(l8000t(D$"GEMINI"~(2110(8000(@:::" YOUR ANSWER? ";E$:DD1(JE$D$SS1::"CORRECT!":8050(T" WRONG! ")^" THE CORRECT ANSWER IS RSA MAJOR"'1110'8000-'D$"DRACO"7'1210A'8000S'D$"HERCULES"]'1310g'8000x',D$"PEGASUS"'61410'@8000'^D$"PERSEUS"'h1510'r8000'D$"AURIGA"'1610'8000'D$"AQUILA"'1710'8000(D$HUE170024,20)HUE1700629,25)HUE1700?340U29,5)HUE1150l24,10)HUE115019,15)HUE115014,20)HUE11509,25)HUE1150340"******* BINGO *******""******* TIMES TA5514,B)HUE1520 B)3407B5255M19,B)HUE1560TB]340kB5255"24,B)HUE1600,B6340@B5255J29,B)HUE1640TB^340h9,5)HUE1700r14,10)HUE1700|19,15)5 A,9)HUE1320A&3404(A9295J2A,14)HUE1360Q<AZF340hPA9295~ZA,19)HUE1400dAn340xA9295A,24)HUE1440A340B52559,B)HUE1480B340B5219007 RANDOM SELECTION OF MULTIPLICATION PROBLEMUA((1)10):B((1)10)o15)A" X ";B" = ":CCAB1210CAB1220T1:1010T0:1020 CHECK FOR WINA9295A,4)HUE1280A340A929ǫ1760T11040!T02030G RANDOM FILL-IN OF BINGO SQUARESRHUE11[HUEr$O(((1)5).4)5.P(((1)5)1.8)58P2,O3)21100B1060LO,(O3)PVO,(O3)(P1)`O,(O3)(P2)jO,(O3)(P3)t1230~H22,2537R29,3734'\34,36326f 'A FIVE'Rp0,329:0,337:0,332qz30,320:34,363:36,370~33,37336,37035,371935,371432,351531,351531,351816,172916,173016,1733T11500:T::5 GRAPHICS FOR '5 IN A LINE ="=13J29,377W29,379e29,3712}30,3210:31,331129,3722 29,372738,3933 38,3935*29,3729:29,3732434,3637:34,3629>30,3230:31,3331 ,144:769,80:770,v768,128:769,200:770["***************************************""CONGRATULATIONS!!!! YOU HIT A BINGO.""WANT TO TRY AGAIN?'YES' OR 'NO'";Z$Z$"YES"250:::::::::"O.K., ";N$;". BYE FOR NOW.",2734:24,2735(26,2923:26,2924? GRAPHICS FOR 'O'F&2o05,3532:5,3538:33,375:33,3735:5,3533:5,3539:33,376:33,3734DX1200:XN768,152:769,80:770X768,128:769,160:770b768,152:769,40:770l76855 6 5,359:5,35106  GRAPHICS FOR 'N'= 8e 5,3512:5,3513:5,3518:5,3519 5,1114:10,1615:15,2116:20,2617  GRAPHICS FOR 'G' 45,3522:5,3523:5,1029:5,1028:25,3528:25,3529:24,275:24,276:24:1:768,152:769,80:7704 h768,128:769,160:770N r768,152:769,40:770h |768,144:769,80:770 768,128:769,200:770 5,350:5,351:6,167:19,347:5,356 0,65:0,76:0,635:0,734 0,517:0,518 5,75:16,195:33,3NE =' COLOR - LINE1320 2180I BACKGROUND COLOR FOR BINGO SQUARESV :::2m A932:2,26A:A  LINES FOR BINGO SQUARES "15 ,D8335:1,26D:D 6E1265:8,33E:E @720 J GR FOR 'BINGO' TX11500:X:2440 ^0 COLOR LINE LOCATIONS9 BINGO LINES - LINE 130 BACKGROUND COLOR - LINE 105 - IF THIS COLOR IS CHANGED THEN COLOR IN LINE 1960 MUST BE CHANGED SQUARE COLOR - LINE 1920 'BINGO' COLORS - LINES 855,865,875,885,895 '5 IN A LI X12500:X MULTIPLICATION TABLES PRACTICE PROGRAM USING RANDOM NUMBERS AND RANDOM CONGRATULATORY MESSAGES. A BINGO GRAPHICS DISPLAY IS RANDOMLY FILLED BY CORRECT RESPONSES TO PROBLEMS CREATED BY BILL WALLQUIST AND RUSS BAYLEY - MARCH 198 BINGO TIMES TABLES1 ADDED TO LIBRARYF OCTOBER 1980 l:936:16298,0:TT$(30):32000td:n::::7)"BINGO TIMES TABLES PRACTICE"x:15)"CREATED BY"::5)"BILL WALLQUIST AND RUSS BAYLEY" :15)"MARCH, 1980"          $:!x}WIDTH:TT$:1!}23:12:"[ESC] TO END"V!}24:8);"[SPACE] TO CONTINUE ";!}"[ ]";:29:ZZ$:ZZ$(27)ZZ$(3)ĉ::!}ZZ$(32)ı!}868:32230!,~ BINGO TIMES TABLES T ** BY RUSS BAYLEY **6 ** 2957 MARIPOSA DR. **V ** BURLINGAME,CA 94010 **n } * TITLE PAGE * | }16368,0 }6:TT$"BINGO TIMES TABLES" }32100 }16:"" (}32200: d} * PRINT CENTER * !n}WIDTH20((TT$)2):WIDTH0ĺTT************************"t )~ 24404 14080 770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0 350 O *"4 3)"* B B * I * N N * G G * O O *"c 3)"* BBBB * I * N N * GGGG * OOOO *"m 2390w$ 2410. ::8 "'YES' OR 'NO' ";Z$B Z$"YES"250L 690V 3)"* * * * * *"` j 3)"************LD * YOU * LIKE * TO * PLAY *"+239052390?2390I2410x3)"* BBB * I * N N * GGGG * OOOO *"3)"* B B * I * NN N * G G * O O *"3)"* B B * I * N NN * G * O O *"3)"* BBB * I * N N * G GG * O 2000:W/4:"NOW TRY THAT LAST ONE AGAIN.":9>1180HHBEEP125URS16336\SOUND(S)(S)(S)(S)(S)(S)(S)(S)(S)fBEEPpz INTRODUCTORY MESSAGE IN NON-GRAPHICS :::241023902390!3)"*WOUHAVE BEEN STUDYING.":1880QC101ĺ"THAT ONE WAS REALLY TOUGH, ";N$;".":1880[2120WRWR1::"YOU GOOFED, ";N$;". WANT TO TRY THAT ONE AGAIN? 'YES' OR 'NO'"Q$ Q$"YES"1180 "O.K. ";AB;" IS THE CORRECT ANSWER."*W1N$;", GO.":1880>C50ĺ"KEEP UP THE GOOD WORK, ";N$:1880qC60ĺN$;", YOU ARE REALLY DOING FINE.":1880C70ĺ"THEY DO GET HARDER SOMETIMES.":1880C80ĺ"THAT WAS A HARD ONE,WASN'T IT, ";N$;"?":1880C90ĺN$;", IT LOOKS LIKE YOU ARDER, THOUGH.":1880QC10ĺN$;", IT'S TIME TO GET SOME TOUGHER ONES.":1880C15ĺ"YOU'RE DOING FINE, ";N$;".":1880C20ĺ"NOT BAD. HERE'S ANOTHER ONE.":1880C30ĺ"MAYBE THE NEXT ONE WILL BE HARDER, ";N$;".":1880C40ĺ"GO, ";:"HI, ";N$;". LET'S GET STARTED.",X1170rb RANDOM CONGRATULATORY MESSAGES BASED ON VALUE OF PROBLEM ANSWERlC1ĺ"ZEROS ARE EASY, ";N$;". LET'S TRY A MORE CHALLENGING ONE.":1880vC5ĺ"THAT WAS PRETTY EASY, WASN'T IT, ";N$;"? THEY DO GET HBLES PRACTICE *******":*P13000:Po"TYPE IN THE CORRECT ANSWER AND A NEW PROBLEM WILL APPEAR."uP13000:P FIVE IN A LINE IS BINGO&" 5 IN A LINE = BINGO"0:P13000:PD"WHAT'S YOUR NAME? ";N$::"N:$ o0mmL08`LGLN >EE>E 8)>E֠ FȌFЪ` > FȌF`FC $D`iI`i `* *mDFGmEGF8MG8&M&0G8&M&0 HI#,,DI,EIHII C`Lr0komq,o0  L  lonq,o0  L  `q o08%%$$L%m%$m$`q,%.mΈ`INE# C 8[>C 8>C ;`M$ o<`=N& oip>`?`2ΐ#2 ΰ  ɀIi  m m `GG`C-,Ɉk`ɕk`ɠS`΃i`EFG i(()) $ i EFGL W@ W`$ [  $ [B / $ [!  ` ` Yi Y` Y VV V`i i $$<`=1J0I S`H i1h`H`ޏ 3 miT&>`?` L^ހM 왁 L^L9 eiхB  `i) i` iɌB P*ȩUxi)$ [B歙7,4 $4,7 `$T  <`=J@MkC G`<=ȱ q 0Ά`1 `iɌ  3*N# @DE j jCl h ; BCCB@*T 1ʈMʈiΊΉL1  `  <= ` BCCB@*T @A` V H I 1MLN3HO 1IT T  1L ɼ1LT j, ɭQ퍁mD+4T j  LiЯ LSMx _ 2L,P,W,R,T@A C @B HV[1k 1<`= ( u$HHT    BCCB@*T  S  ޏ         `ЪժժժЪժժ***" " """* ***" "" ** ** ՀՀĐՀĔĪՀёёЪՀЪА* ( *UՀ*UL`%PC E5EEPUUU*l` D D` D D D! D`$ D D E`GG DL6E` +E` D  D`( DP DZ ` $D>D>D@G>D`A>D $D>D>DH>D` E E`D dD`ƍD D`    LGDJJJJJJJi dD`0` SD ei  SD`F` D D` D D` D D D` D  D ` D>DG $D>D` D $D    `%PC E5EEPUUU*l`  `   ! `$   ` L6` +`   `( P Z ` $>>@G>`A> $>>H>`  ` d`ƍ `    LGJJJJJJJi d`0` S ei  S``  `  `   `    ` >G $>`  $    LING BOMB"# d"CALL7496=A MELODY"E n"CALL7545=RINGING TELEPHONE"K xdM SUPER SOUND.DOC:5"CALL7308=PHASER"_("CALL7317=SUMMONS TO BATTLE STATION"u2"CALL7334=SIREN"<"CALL7358=SUBSPACE MESSAGE.POKE5,D FOR TIMING.D=1-255"F"CALL7423=GUNSHOT"P"CALL7434=EXPLOSION/THUNDER" Z"CALL7455=WHIST  >ɖ `L`!kũōŭɖ `L`ũDCōŭDɖ `CDL?`kk`"