IMD 1.15: 16/05/2007 7:45:54 fog gam 012         ELIZA BAS:LANDER1 BAS%TREKINS BAS$STARTREKDOC) !"ANDY-500BAS#$MONSTER BASI%&'()DISK DOC* 2 13 22 2 13 10 2 14 22 2 15 22 2 16 22 2 17 22 2 18 22 2 19 22 2 20 22 2 21 22 2 22 22 2 23 22 2 24 22 2 25 22 2 26 22 2 27 22 2 28 22 2 29 22 2 30 22 2 31 22 2 32 22 2 33 22 2 34 22 2  35 22 2 36 22 2 37 8 3 38 8 3 37 22 3 36 22 3 35 22 3 34 22 3 33 22 3 32 22 3 31 22 3 30 22 3 29 22 3 28 22 3 27 22 3 26 22 3 25 22 3 24 22 3 23 22 3 22 22 3 21 22 3 20 22 3 19 22 3 18 AL dALIEN BAS PICT BAS PRITPICTBAS SKET BAS -FOG/GAM012GRAPH PRN KONG BASU  2 25 32 13 25 32 14 25 32 15 25 32 16 25 32 17 25 32 18 25 32 19 25 32 20 25 32 21 25 32 22 25 32 23 25 32 1 25 32 2 25 32 2 25 22 1 25 22 1 25 32 23 25 32 23 24 32 23 23 32 23 22 32 23 21 327 127 4 28 127 4 29 127 4 30 22 4 31 22 4 32 22 4 33 22 4 34 22 4 35 22 4 36 22 4 37 22 4 38 22 4 39 8 5 39 25 5 38 22 5 37 22 5 36 22 5 35 22 5 34 22 5 33 22 5 32 22 5 31 22 5 30 22 5 29 23 20 32 23 19 32 23 18 32 23 17 32 23 16 32 23 15 32 23 14 32 23 13 32 23 12 32 23 11 32 23 10 32 23 9 32 23 8 32 23 7 32 23 6 32 23 5 32 23 4 32 23 4 46 23 4 32 23 3 32 23 2 32 23 1 32 2 22 5 28 22 5 27 22 5 26 22 5 25 22 5 24 22 5 23 22 5 22 22 5 21 22 5 20 22 5 19 22 5 18 22 5 17 22 5 16 22 5 15 22 5 14 22 5 13 22 5 12 22 5 11 22 5 11 21 6 12 21 6 13 22 6 14 22 6 15 23 1 46 23 51 46 23 51 32 23 1 46 23 1 32 23 1 127 23 51 127 23 51 32 23 1 127 23 2 127 23 3 127 23 4 127 23 5 127 23 6 127 23 7 127 23 8 127 23 9 127 23 10 127 23 11 127 23 12 127 23 13 127 23 2 6 16 22 6 17 22 6 18 22 6 19 22 6 20 22 6 21 22 6 22 22 6 23 22 6 24 22 6 25 22 6 26 22 6 27 22 6 28 22 6 29 22 6 30 22 6 31 22 6 32 22 6 33 22 6 34 22 6 35 22 6 36 22 6 37 22 6 38 25  14 127 23 15 127 23 16 127 23 17 127 23 18 127 23 19 127 23 20 127 23 21 127 23 22 127 23 23 127 23 24 127 23 25 127 23 26 127 23 27 127 23 28 127 23 29 127 23 30 127 23 31 127 23 32 127 23 33 127 6 37 22 6 36 22 6 35 22 6 34 22 6 33 22 6 32 22 6 31 22 6 30 22 6 29 22 6 28 22 6 28 32 6 28 22 6 27 22 6 26 22 7 26 32 7 25 32 7 25 46 7 25 46 7 25 32 8 25 32 9 25 32 10 25 32 11 25 32 1 23 34 127 23 35 127 23 36 127 23 37 127 23 38 127 23 39 127 23 40 127 23 41 127 23 42 127 23 43 127 23 44 127 23 45 127 23 46 127 23 47 127 23 48 127 23 49 127 23 50 127 1 50 127 1 50 32 23 50 12722 3 17 22 3 16 22 3 15 22 3 14 22 3 13 22 3 12 10 4 11 10 4 12 22 4 13 22 4 14 22 4 15 22 4 16 22 4 17 22 4 18 22 4 19 22 4 20 22 4 21 127 4 22 127 4 23 127 4 24 127 4 25 127 4 26 127 4 2   32 8 25 32 8 26 32 8 27 32 7 28 32 7 28 11 8 28 11 7 28 22 7 28 11 6 28 22 5 28 22 4 28 127 4 27 127 4 26 127 4 25 127 3 25 22 2 25 22 1 25 127 1 24 10 1 25 127 1 26 8 23 25 160 23 25 127  35 32 7 34 32 7 33 32 7 32 32 7 31 32 7 30 32 7 30 46 7 30 32 7 29 32 7 28 32 7 27 32 7 26 32 7 25 32 7 24 32 7 24 46 7 24 32 7 24 123 7 24 32 7 23 32 7 22 32 7 21 32 7 20 32 7 19 32 7  1 25 127 1 25 22 1 25 127 1 25 22 1 25 127 1 25 22 1 25 127 1 25 22 1 25 127 1 25 32 1 25 22 1 25 127 1 25 32 1 25 22 1 25 127 1 25 32 1 25 22 1 25 127 1 25 127 1 25 127 1 25 22 1 25 32 1 18 32 7 18 45 7 18 32 7 19 32 7 20 32 7 21 32 7 22 32 7 23 32 7 22 32 7 22 92 7 23 160 7 24 160 7 25 32 7 26 160 7 27 160 6 28 47 6 28 22 7 28 160 7 28 32 7 27 160 6 26 160 6 26 22 7 27 47 25 22 1 25 127 1 25 22 1 25 32 1 24 32 1 25 32 1 26 32 1 25 32 2 25 22 3 25 22 4 25 127 5 25 22 6 25 22 7 24 123 7 25 192 7 26 125 8 26 32 8 25 32 8 24 32 7 24 32 7 25 32 7 26 32 8 26 32 8 7 27 160 7 28 47 7 27 32 7 26 32 8 26 32 8 27 47 7 28 47 8 27 47 8 26 32 7 26 32 6 26 32 6 26 22 7 26 32 7 25 32 7 24 32 7 23 32 8 23 32 8 23 92 9 23 32 8 23 32 8 23 92 9 23 32 10 23 32  25 32 8 24 32 7 24 123 7 24 32 8 24 123 8 25 192 8 26 125 9 26 32 9 25 32 9 24 32 8 24 32 8 25 32 8 26 32 9 26 32 9 25 32 9 24 32 8 24 32 8 24 123 8 25 192 8 26 125 9 26 32 9 25 32 9 24 39 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 10 23 32 9 23 32 8 23 32 7 22 32 7 22 108 8 22 108 7 22 11 8 22 11 8 23 32 8 242 8 24 32 8 25 32 8 26 32 9 26 32 9 25 32 9 24 32 8 24 32 8 24 123 8 24 32 9 24 192 10 23 192 11 23 192 12 24 192 12 24 32 11 23 192 11 23 32 10 23 192 10 23 32 9 24 192 9 24 32 8 24 123 8 24 1 50 32 2 50 32 3 50 32 4 50 32 5 50 32 6 50 32 7 50 32 7 49 32 7 48 32 7 47 32 7 46 32 7 45 32 7 45 46 7 45 32 7 44 32 7 43 32 7 42 32 7 41 32 7 40 32 7 39 32 7 38 32 7 37 32 7 36 32 7  40 32 16 41 32 16 42 32 16 43 123 16 44 192 16 45 125 15 45 32 14 45 32 13 45 32 12 45 32 11 45 32 10 45 32 9 45 32 8 45 32 7 45 32 7 44 32 7 43 32 7 42 32 7 41 32 7 40 32 7 39 32 7 38 32 7  11 26 32 11 25 32 12 24 32 13 24 32 14 25 32 15 24 32 16 25 32 17 25 32 18 24 32 18 25 123 18 25 32 17 25 32 16 25 32 15 25 32 14 25 32 13 25 32 12 25 32 11 25 32 11 26 123 11 27 192 11 28 12537 32 7 36 32 7 35 32 7 34 32 7 33 32 7 32 32 7 31 32 7 30 32 7 29 32 7 28 32 8 28 32 8 28 47 7 29 47 7 28 32 7 27 32 8 27 32 8 26 32 8 25 32 8 24 32 8 23 32 8 22 32 7 22 32 7 21 92 8 22  12 28 32 12 27 32 12 26 32 11 26 32 11 27 32 11 28 32 12 28 32 12 27 32 12 28 123 12 29 192 12 30 125 13 30 32 13 29 32 13 28 32 12 28 32 12 29 32 12 30 32 13 29 123 13 30 192 13 31 125 14 31  92 9 23 32 10 24 32 11 25 32 12 26 32 13 27 32 14 28 32 15 29 32 14 28 32 13 27 32 12 26 32 11 25 32 10 24 32 9 23 32 8 22 32 8 22 92 8 23 32 8 24 32 8 25 32 8 26 32 8 27 32 8 28 32 8 27 3232 14 30 32 14 29 32 13 29 32 13 30 32 13 31 32 14 32 123 14 33 192 14 34 125 15 34 32 15 33 32 15 32 32 14 32 32 14 33 32 14 34 32 15 35 123 15 36 192 15 37 125 16 37 32 16 36 32 16 35 32 15 35 8 26 32 8 25 32 8 24 32 8 23 32 8 22 32 7 22 32 6 22 32 6 22 22 7 22 160 7 23 160 7 24 32 7 25 160 7 25 32 7 26 160 7 26 32 7 27 160 7 28 160 8 28 32 9 28 32 9 27 32 9 26 32 9 25 32 9 24  32 15 36 32 15 37 32 15 38 32 16 37 123 16 38 192 16 39 125 17 39 32 17 38 32 17 37 32 16 37 32 16 38 32 16 39 32 16 40 123 16 41 192 16 42 125 17 42 32 17 41 32 17 40 32 16 40 32 17 41 32 16  32 8 24 32 7 24 32 6 24 32 6 24 22 7 24 32 7 23 32 7 24 32 7 25 32 7 26 32 7 27 32 7 26 32 7 25 32 7 24 32 7 23 32 7 22 32 7 23 32 7 24 32 7 25 32 7 26 32 7 27 32 7 28 32 6 29 32 6 29 22 32 9 24 123 9 25 192 9 26 125 10 26 32 10 25 32 10 24 32 9 24 32 9 25 32 9 26 32 10 26 32 10 25 32 10 24 32 10 24 123 10 25 192 10 26 125 11 26 32 11 25 32 11 24 32 10 24 32 10 25 32 10 26 32   42 20 37 32 19 38 42 19 38 32 19 39 42 19 39 32 18 40 42 18 40 32 18 41 42 18 41 32 17 42 42 17 42 32 17 43 42 17 43 32 16 44 42 16 44 32 16 45 45 16 44 45 16 44 32 16 43 45 17 44 11 16 44 11 35 32 8 36 32 8 37 32 8 38 32 8 39 32 8 40 32 8 41 32 9 41 32 10 41 32 11 41 32 12 41 32 13 41 32 14 41 32 15 41 32 16 41 32 17 41 32 18 41 32 19 41 32 20 41 32 21 41 32 22 41 32 23 41 32 1 16 44 32 15 44 11 15 44 32 16 43 32 17 44 32 16 45 32 15 46 32 15 45 32 15 46 32 15 46 32 15 47 32 15 46 32 15 46 46 14 45 32 13 44 46 14 43 46 14 43 32 15 42 46 16 43 46 16 43 32 17 44 46 17 41 32 23 41 32 23 41 46 23 41 127 23 40 127 23 39 127 23 38 127 23 37 127 23 36 127 23 35 127 23 35 22 23 35 254 23 35 127 23 34 127 23 33 127 23 32 127 23 31 127 22 30 10 22 31 22 22 32 22 22 3 44 32 18 44 46 17 44 32 16 44 32 16 45 32 16 46 32 15 46 32 15 47 32 15 48 46 15 47 32 15 46 32 15 45 32 15 44 32 14 44 32 13 44 32 12 44 32 11 44 46 11 43 32 12 43 32 13 43 32 14 43 32 15 433 8 21 33 32 21 32 32 21 31 32 21 30 32 22 30 32 22 30 10 22 30 32 22 31 10 22 32 22 22 33 22 22 34 8 21 34 32 21 33 32 21 32 32 21 31 32 22 31 32 22 32 10 22 33 22 22 34 22 22 35 8 21 35 32  32 16 43 32 17 43 32 17 42 32 16 42 32 15 42 32 15 41 46 15 41 32 15 40 46 15 40 32 15 39 46 15 40 32 15 41 32 15 42 32 15 43 32 15 44 32 15 45 32 15 46 32 15 47 32 15 48 32 15 49 46 15 49 3221 34 32 21 33 32 21 32 32 22 32 32 22 32 10 22 32 32 22 33 10 22 34 22 22 35 22 22 36 8 21 36 32 21 35 32 21 34 32 21 33 32 22 33 32 22 34 10 22 35 22 22 36 22 22 37 8 21 36 42 21 36 32 20 37 15 50 46 15 50 32 14 50 32 13 50 32 12 50 32 11 50 32 10 50 32 10 49 32 10 48 32 10 47 32 10 46 32 10 45 32 10 44 32 11 44 32 12 44 32 13 44 32 14 44 32 15 44 32 16 44 32 17 44 32 18 44 32 17 7 29 32 7 28 32 7 27 32 7 26 32 7 25 32 7 24 32 7 23 32 7 22 32 7 21 32 8 21 32 8 22 32 8 23 32 8 24 32 8 25 32 8 26 32 8 27 32 8 28 32 8 29 32 8 30 32 8 31 32 8 32 32 8 33 32 8 34 32 8   32 22 34 32 22 35 32 22 36 32 22 37 46 22 37 32 22 38 46 21 38 32 20 38 32 19 38 32 18 38 32 18 37 32 18 36 32 18 35 32 18 34 32 18 33 32 18 32 32 17 32 32 17 33 32 17 34 32 17 35 32 17 36 32 32 8 39 32 7 39 32 6 39 32 5 39 32 5 39 25 6 38 25 7 37 25 7 37 32 6 36 22 6 35 22 6 34 22 6 33 22 6 32 22 6 31 22 6 31 32 6 31 22 6 32 22 6 33 22 6 34 22 6 33 22 6 32 22 6 31 22 6 30 22 17 37 32 18 37 32 19 37 32 19 36 32 19 35 32 19 34 32 18 34 46 18 34 32 17 34 46 17 34 32 18 34 32 19 34 32 20 34 32 21 34 32 21 33 32 21 32 32 21 31 32 21 30 32 21 29 32 22 29 32 22 28 32 22 6 29 22 7 30 13 7 30 32 8 31 13 8 31 32 9 32 13 9 32 32 9 32 32 10 32 13 10 32 32 11 32 13 11 32 32 11 32 32 12 33 13 13 33 13 12 33 13 12 33 32 13 33 13 13 33 32 14 34 13 14 34 32 15 34 13 27 32 22 26 32 22 27 32 22 28 32 22 29 32 23 29 32 23 29 127 22 30 32 22 31 32 22 32 32 22 33 32 22 34 32 22 35 32 22 36 32 22 37 32 22 38 32 9 32 23 29 127 22 30 32 22 31 32 22 32 32 22 33 3 15 34 32 16 35 13 16 35 32 17 35 13 17 35 32 18 36 13 18 36 32 19 36 13 19 36 32 20 36 13 20 36 32 21 36 13 21 36 32 22 37 32 22 36 32 22 35 32 22 34 32 22 33 45 21 34 11 22 35 45 22 35 32 22 36 45 22 35 32 22 34 32 22 33 32 22 32 45 21 32 32 21 33 32 21 34 32 20 34 73 20 34 32 19 34 73 20 34 32 21 34 32 22 34 32 22 33 32 22 32 32 22 31 45 22 31 32 22 30 46 22 31 32 22 32 32 22 33 43 32 16 42 32 15 41 32 14 40 32 13 40 32 14 40 32 14 41 32 14 42 32 14 43 32 14 43 46 14 43 32 15 43 32 15 42 32 15 41 32 15 40 32 15 39 32 14 39 32 13 39 32 12 39 32 11 39 32 10 39 32 9 39   E1b "b b"Hb, J  5b6HHc@ pH, cJ H5 ^ cTc^.ch A  7crA$Ic| A$"1" x^c A$"3" sc A$"4" BBc A$"4" CC c A$"4" GGc A$"4" DDc A$"4" EEc A$"4" FFc A$"6" BBd A$"6" CCd A$"6" GG1d A$"6" DDFd A$"6" EE[d A$"6" FFpd A$"5" d A$"" 4d F d& E4 xd0 pF, d: pB, dD pC,dN pD,eX pE, -eb pG,3el=ev 4FeKOeL`e M  jeKKteLLe KpC,*e LpC, ee CP 2e CO 2e CQ 2e 4eNeOe PfQf Rf* < f4 S *f>NN4fHOO>fRPPHf\QQRffRRhfp pN, ~fz pO,{f pP,f pQ,}fa ()a laa(a2 a< ():VaF U  4bPVVbZ pV,%bd/bn 7bxF?bBGbCObGWbD_bEib "sb }b hbF,bB-bC.bG/bD0b pR, f N5 Nf O5 Of P5 Pg Q5 Qg R5 R*g ~ 0g:g hDg LgWTgXcg Y mgWWwg$XXg. XpP, g8 WpP, gBgL  l:PPPPPPlD"POINTS- "PPPlN TI  lXlb 2 ml::::::::::mv )"ALIEN".m XX  4m@m ()jm::::::::::::::::::m )"BY DAVID ANNING": )"AUGUST 14, 1982"m XXX pC,Zh pG,Zh pD,Zh Z 0 i  AC  iiZ %i( /i2CA{9i<CBCiFCC}YiP pQ, oiZ pO, xidDAin () ix DB iDADA:OO:PP:Qmm ()m "B:AL m ()m "I",,"B:AL n ()  n# ,ROW,COL,C9n ROWpCOL,CCn  Kn#Xn  ()n*"USE '4' AND '6' TO GO IN THEIR DIRECTION."n4"USE '1' AND '3' TO GET TO THE EQi O O4i P P4i Q Q4i DApQ,CCj DApP,CB+j DApO,CA"USE '5' TO FIRE AT THE ALIEN'S SPACESHIP"oH"YOU WIN 200 POINTS IF YOU HIT HIM !"JoR"YOU LOOSE 150 POINTS IF HE HITS YOU !"To\::fof HQ  lopvoz oPPPPPPo"POINTS- ";o PPPo TII j" pO,C1j, pP,C2j6 pQ,C3k@ C1 hkJC1 :C2 :C3/kT ZZZZ :9k^ "Kkh EA  Qkrck|"GOOD SHOT!"mk ~kJJ:JJJk HH  kJJJJkJJJJJk  oo 2oF:B:C:G:D:Eo pF, p pB, )p pC,@p pG,Vp pD,mp pE, wp hp pB, )p pC,@pJJpB, k JJpC,k JJpG,l JJpD,l AD  l2l JJJpB, Jl JJJpC, bl JJJpG, zl JJJpD, ll& l0 (): ():" TO BAD..." PB gV PC g` PD gj PG gt XpP, h~ hh ()-h pB, Dh pC, [h pG, rh pD, h AB dhhZh pB,Zh    32 18 14 7 17 14 7 16 14 7 15 14 7 14 14 7 13 14 7 12 14 7 11 14 7 10 14 7 9 14 7 8 14 7 7 14 7 6 14 7 5 14 7 4 14 7 3 14 7 2 14 7 1 14 7 1 15 7 1 16 7 1 17 7 1 18 7 1 19 7 1 18 7 1 20 36 9 20 37 9 20 38 9 20 39 9 20 40 9 20 41 9 19 42 9 18 43 9 17 44 9 16 44 9 15 44 9 14 44 9 13 44 9 12 44 9 11 44 9 10 44 9 9 44 9 8 44 9 7 44 9 7 43 9 7 42 9 7 41 9 7 40 9 7 39 9  17 7 1 16 7 1 15 7 1 14 7 1 13 7 1 12 7 1 11 7 1 10 7 1 9 7 1 8 7 1 7 7 1 6 7 1 5 7 1 4 7 1 3 7 1 2 7 1 1 7 1 51 7 1 50 7 1 49 7 1 50 7 1 51 7 1 1 7 1 2 7 1 3 7 1 4 7 2 4 7 2 7 38 9 7 37 9 7 36 9 7 35 9 7 34 9 7 33 9 7 32 9 7 31 9 7 30 9 7 29 9 7 28 9 7 27 9 7 26 9 7 25 9 8 24 9 9 23 9 10 22 9 11 21 9 12 20 9 12 20 32 11 21 9 11 21 32 10 22 9 10 22 32 9 23 3 7 2 2 7 2 1 7 2 51 7 2 50 7 1 50 7 1 50 7 1 50 7 1 50 7 1 50 7 1 50 7 1 50 7 1 50 7 1 50 7 2 50 7 3 50 7 4 50 7 5 50 7 6 50 7 7 50 7 8 50 7 9 50 7 10 50 7 11 50 7 12 50 7 12 50  9 9 23 32 8 24 9 8 24 32 7 25 9 8 25 9 9 25 9 10 25 9 11 25 9 12 25 9 13 25 9 13 24 9 13 23 9 13 22 9 13 21 9 13 20 9 13 19 9 12 19 7 11 19 7 10 19 7 9 19 7 8 19 7 7 19 7 6 19 7 5 19 7  7 2 50 7 3 50 7 4 50 7 5 50 7 6 50 7 7 50 7 8 50 7 9 50 7 10 50 7 11 50 7 12 50 7 12 50 50 7 2 50 7 3 50 7 4 50 7 5 50 7 6 50 7 7 50 7 8 50 7 9 50 7 10 50 7 11 50 7 12 50 7 12 50  7 4 19 7 3 19 7 2 19 7 1 19 7 23 18 7 22 17 7 21 16 7 20 15 7 20 15 32 21 16 7 22 17 7 22 17 32 22 17 32 23 18 7 23 18 32 22 17 7 22 17 32 21 16 7 21 16 32 20 15 7 20 15 32 19 14 7 19 14  13 26 22 14 27 22 15 28 22 16 29 22 17 30 22 17 30 32 16 29 22 16 29 32 15 28 22 15 28 32 14 27 22 14 27 32 13 26 22 14 27 9 15 28 9 16 29 9 17 30 9 18 31 9 19 32 9 20 33 9 20 34 9 20 35 9   a "I",,"B:PICT.BASa ()a () Fa(#,ROW,COL,Cb2 ROWpCOL,Cb< "bF# :^¸^ALIEN BAKDAVID BAS$AL d ALIEN1 BAS  PERATIONS."bZ:: )"IN SKETCH MODE:":cd"'1-4','6-9' PRINT A CHARACTOR IN THEIR DIRECTION"Ncn"'5'-TYPE A CHARACTOR'S NUMBER . IN THE BACK OF"cx" THE OSBORNE MANUAL, STARTING THE NINTH TO LAST" c" AND ENDING AT THE FIFTH TO LAST PAGE, ARE THE"c" CHARACTORS.THE FIRST ONE, 0, IS A BOX."2d"'B'-TYPE B, THEN THE NUMBER IN THE DIRECTION YOU"jd" WANT AND IT WILL PRINT A BLANK AT THAT PLACE"d"'C'-TYPE C, AND THE SCREEN WILL CLEAR"d"'F'-TYPE F, WHEN YOU ARE FINISHED"d:d )"TO CONTINUE HIT RETURN"dX$ e X$( ) fe Ae ROW(): COL(): C(): M()Ie#`e"O",,"B:PICT.BASre "B:PICT.BASe ()e"ROW e,NUMe6BASEpe@COLeJCeT e^;Ceh ()er" "e| ()e fA$$()!f A$"1" ROWROW:f A$"1" COLCOLSf A$"2" ROWROWlf A$"3" ROWROWf A$"3" COLCOLf A$"4" COLCOLf A$"5" a ()a )"SKETCH"a )"BY DAVID ANNING"b( )"JULY 1, 1982" b2Eb<" 'SKETCH' IS JUST LIKE AN ETCH-A-SKETCH. USE THE"bF"NUMARIC KEY PAD FOR THE DIRECTION OF YOUR CHARACTER"bP"TO BE PRINTED IN. THERE ARE ALSO OTHER O ^f A$"6" COLCOLf A$"7" ROWROWf A$"7" COLCOLg A$"8" ROWROW0g A$"9" ROWROWIg A$"9" COLCOL^g ROW ROWsg& ROW ROWg0 COL3 COLg: COL COL3gD A$"C"   lZ () "DO YOU REALLY WANT TO QUIT": G$ld G$"Y" rmn G$"N" fmx G$"NO" f+m G$"YES" r5m Zum ():" WHEN YOU SKETCH A PICTURE, AND THEN SKETCH "m"ANOTHER PICTURE, IT SAVES THE NEW PICTURE OVER THE""I",,"B:PICT.BASh ()h () *h #,ROW,COL,C i ROWpCOL,Ci  Hi* ) "TYPE 'R' TO RETURN OR 'P' TO REPRINT "Pi4#Yi>C$niH C$"R" fiR C$"P" i\ >if()ipAizAAim"OLD PICTURE. IF YOU WANT TO SAVE TO A DIFFERENT ""n"FILE YOU HAVE TO DO SOME EDITTING. HERE IS WHAT TO "1n"CHANGE:"9n:mn"' IS USED INSTEAD OF DOUBLE BECAUSE OF PRINT"n" STATEMENT":n" REPLACE 'B:PICT.BAS' WITH 'B:(NEWFIL pA,i A4 i ziBiBBj Bp3,j B !j *jC44jCCKj pC,[j C ej ojD yjDDj Dp,j$ D 8j. j8E).BAS'"n:n  )"260 OPEN 'I',1,'B:PICT.BASo  )"270 FILES'B:PICT.BAS",o  )"750 OPEN'I',1,'B:PICT.BAS"XW:YV2d &H0E,&HC6,&HE1,&HC9,&H00,&H7E,&H3D,&H6F,&H26,&H00,&H29,&H29,&H29,&H29,&H29,&H29,&H29,&H1AUd &H3D,&H5F,&H16,&H00,&H19,&H11,&H00,&HF0,&H19,&H0A,&H77,&HC9,-1]d:d:Load machine language coded GN%:GI%d GN%d GRAPH.IT  XW:YV:C/: hrXW:C: hrXW:C\: hsXW:YV: hsXW:C/: h"s ,s" 4s,J>s6 NUs@ W V rtsJ V V W. |sT V V W |s^ V V W. | V V  : Nn W N : WWnXW:YV:C : hoXW:YV: h$oXW: h4oXW: hJoXW:YV: hZoXW: hdo {oXW:YV:C : ho$XW:YV:C/: ho.XW:C: ho8Xsh V V W |sr Ns|VVsXW:YV:C : htXW:YV: htXW: h.tXW: hDtXW:YV: hTtXW: h^t utXW:YV:C : htXW:YV:C/: htXW:C: htXW:CW:C\: hoBXW:YV: hoLXW:C/: hoV  p` W* V $'&pj W V &@pt W* V  &Yp~ W V %epJ ~p V W  p p Np (V V V \: htXW:YV: htXW:C/: ht u V W. $'u V W &8u& V W.  &Qu0 V W %[u: iuDJ: NuN V V W uX V V W. ub V  V) NpXW:YV:C : hpXW:YV: hpXW: hqXW: hqXW:YV: h,qXW: h6q OqXW:YV:C : hdq XW:C\: hyqXW:C/: hqXW:YV:C: hq(XW:YV:C\: hq2 V W ul V V W. uv NuVV vXW:YV:C : h!vXW:YV: h/vXW: h?vXW: hUvXW:YV: hevXW: hov vXW:YV:C : hvXW:YV:C/: hvXW:C:XW:C/: hq< qFVVqP qZ qdVV rnXW:YV:C : hrxXW: h*rXW: hXW:YV:C : hwwHXW:YV: hwRXW: h w\XW: hwfXW:YV: h :C/: hmHXW:C: hmRXW:C\: hm\XW:YV: h nfXW:C/: hnp 0nz W2 V $'Jn W V &dn W2 V  &}n W V %nJ n n Nn V V   |@VV|J |TVV|^ N|hW: |r ()}| ()}::::::::::7} )"YOU MADE IT!!!"I} I :V} ()b} ()t} I :~} |} H }RR(H):TT(H)} T RxXW: hxXW:YV: hxXW:YV: hxXW: hy$  y.VVy8 yBVV6yLXW:YV:C : hQyVXW:YV:C/: hcy`XW:C: hxyjXW:C\: hytXW:YV: hy~XW:C/: hy W2   } T T } T T D }RR~ R5  ~ TBASE!(R), 2~ TBASE!R, V~& (VT VT VT)  v~0 WR WR WR  ~:  ~D RR~N R  ~X TBAS y y y Ny W4 yW2: L zX4:Y:C : h zY: h%z /zWWXz (V V V V) NqzXW:YV:C : hzXW:YV: hz XW: hzXW: hzXWE!(R), ~b VT RW  ~l TBASE!R, v (VT VT VT)  / WR WR WR  9  P TBASE!4, e R5:TT: D { TBASE!,  R:TT:  BASE!,  T:YV: hz(XW: hz2 z<XW:YV:C\: h{FXW:C : h{PXW:C/: h4{ZXW:YV:C: hO{dXW:YV:C\: hd{nXW:C/: hn{x x{VV{ {VV{XW:YV:C : h{XW:R  R(H)R:T(H)T: H:  TT:R4: D  TT:R:  () # XW:YV:C : h9!XW:YV: hG !XW: hW!XW: hm !XW:YV: h}*!XW: h4! >!XW:YV:C : hH!XW:YV:: h{XW: h{XW:YV: h{XW:YV: h|XW: h | | ,|XW:YV:C : hG|XW:YV:C/: hY|XW:C: hn|XW:C\: h|XW:YV: h|"XW:C/: h|, W h|6C/: hˀR!XW:C: h\!XW:C\: hf!XW:YV: h p!XW:C/: hz! .!XW:YV:C : hB!XW:YV: hP!XW: h`!XW: hv!XW:YV: h!XW: h! !XW:YV:C : hā!X wpXW: hwz wXW:YV:C\: hwXW:C : hxXW:C/: h)xXW:YV:C: hExXW:YV:C\: h ZxXW:C/: hdx nxVVxx xVVxXW:YV:C : hxXW: h  |$ ҆$XW:YV:C: h톐$XW:YV:C\: h$XW:C: h$XW:C/: h($XW:YV: h=$XW:C\: hG$ b$XW:YV:C : hp$XW: h$XW: h$XW:YV: h$XW: h$ XW:YV:C\: hׂj"XW:C: ht"XW:C/: h~"XW:YV: h"XW:C\: h!" :"XW:YV:C : hP"XW:YV: h^"XW: hn"XW: h"XW:YV: h"XW: h" "XW:YV:C ɇ%XW:YV:C: h%XW:YV:C\: h%XW:C/: h&% 0%XW:YV:C : h.:%XW: h8D% SN%XW:YV:C: h]X% vb%XW:YV:C : hl% v%%X:C:Y: h%X:C: : hЃ"XW:YV:C\: h"XW:C: h#XW:C/: h #XW:YV: h"#XW:C\: h,# C(#XW:YV:C : hY2#XW:YV: hg<#XW: hwF#XW: hP#XW:YV: hZ#XW: hd# n#XWhɈ%X:Y:C: h׈% B %X:C:YB: h% B% B %X:C:YB: h#% B1% B I%X:C:YB: hQ% B[% a&y &X/:Y:C: h&X-:C: h &X.:Y:C: h*& B :YV:C : hلx#XW:YV:C\: h넂#XW:C: h#XW:C/: h#XW:YV: h+#XW:C\: h5# N#XW:YV:C : hb#XW:YV: hp#XW: h#XW: h#XW:YV: h#XW: h#   ˉ4&X-:C:YB: hӉ>& BH& B  R&X/:C:YB: h\& Bf& B  *p&X.:C:YB: h2z& B<& B&Y&X:C:Y: hl&X:C: h&X:Y:C: h& B &X:C:YB: h&Ʌ#XW:YV:C : h$XW:YV:C\: h$XW:C: h $XW:C/: h"$XW:YV: h4,$XW:C\: h>6$ W@$XW:YV:C : hmJ$XW:YV: h{T$XW: h^$XW: hh$XW:YV: hr$XW: h BŠ& B ي&X:C:YB: h & B& B &X:C:YB: h' B'  '9$'X/:Y:C: hL.'X-:C: he8'X.:Y:C: huB' B L'X-:C:YB: hV' B`' B j'X/:CW:YV:C\: h؁!YV:C: h!YV:C/: h!XW: h!YV:C\: h" 3"XW:YV:C : hI"XW:YV: hY$"YV: hg."YV: hw8"XW: hB"YV: hL" V"XW:YV:C : hł`"  10 REM Eliza from Creative Computing 20 REM -----INITIALIZATION----- 21 DEFINT A-Z:CLS$=CHR$(27)+"*" 30 DIM S(36),R(36),N(36) 40 N1=36:N2=12:N3=112 50 FOR X=1 TO N1+N2+N3:READ Z$:NEXT X:REM SAME AS RESTORE 60 FOR X=1 TO N1 70 READ S(X),L:R(X)=S(X):N(X)=S(X)+L-1 80 NEXT X 90 PRINT CLS$;"My name is Eliza. I'm a Computer. I have been programmed" 100 PRINT "to assist humans with their problems. But first, can you give" 101 PRINT "me a ";:RANDOMIZE 102 INPUT "What is your name";NAM$ 103 PRINT "So, ";NAM$;", what is the problem?" 110 REM *** User input *** 120 LINE INPUT I$:IF LEN(I$)=0 THEN RUN "I" 130 I$=" "+I$+" " 140 REM GET RID OF APOSTROPHES 150 O$=" ":FOR L=1 TO LEN(I$) 160 IL=ASC(MID$(I$,L,1)) 170 IF IL=32 AND RIGHT$(O$,1)<>" " THEN 210 180 IF IL<65 THEN 220:REM strip punctuation, numbers 190 IF IL<96 THEN IL=IL+32:REM make small 200 IF IL>122 THEN 220 210 O$=O$+CHR$(IL):REM add character 220 NEXT L 230 I$=O$ 250 REM *** Find keyword in I$ *** 260 RESTORE 270 S=0 280 F:YB: hËt' BӋ~' B 니'X.:C:YB: h' B' ' 'V' B`' B j'X/:CC: hL.'X-:C: he8'X.:Y:C: huB' B L'X-:C:YB: hV' B`' B j'X/:C  lo","hi","maybe" 620 DATA "no","your","always","think","alike","yes","friend" 630 DATA "computer","nokeyfound" 640 REM *** Swap pronoun data *** 650 DATA "are","am","were","was","you","i","your","my" 660 DATA "ive","youve","im","youre" 670 REM *** Re70 RESTORE:FOR X=1 TO N1:READ Z$:NEXT X:REM SKIP OVER KEYWORDS 380 C$=" "+MID$(I$,L+LEN(F$)+2):C$=LEFT$(C$,LEN(C$)-1):REM strip space 390 FOR X=1 TO N2/2 400 READ S$,R$ 410 S$=" "+S$+" ":R$=" "+R$+" " 420 L=INSTR(C$,S$):IF L=0 THEN 450 430 C$=LEFT$(Cplies (End / for no cont, else ?,. or !) *** 680 DATA "Don't you believe that I can?" 690 DATA "Perhaps you would like to be able to." 700 DATA "You want me to be able to?" 710 DATA "Perhaps you don't want to?" 720 DATA "Do you want to be able to?" 7$,L-1)+R$+MID$(C$,L+LEN(S$)) 440 GOTO 480 450 L=INSTR(C$,R$):IF L=0 THEN 480 460 C$=LEFT$(C$,L-1)+S$+MID$(C$,L+LEN(R$)) 470 L=L+LEN(S$) 480 NEXT X 490 REM *** Use keyword number K to select reply *** 500 RESTORE:FOR X= 1 TO N1+N2:READ Z$:NEXT X 51030 DATA "What makes you think I am?" 740 DATA "Does it make you happy to think I am?" 750 DATA "Perhaps you would like to be." 760 DATA "Do you sometimes wish you were?" 770 DATA "So you don't?" 780 DATA "Why don't you?" 790 DATA "So you'd like to!"  FOR X=1 TO R(K):READ F$:NEXT X:REM READ RIGHT REPLY 520 R(K)=R(K)+1: IF R(K)>N(K) THEN R(K)=S(K) 530 PRINT LEFT$(F$,LEN(F$)-1); 531 IF RIGHT$(F$,1)="/" THEN PRINT:GOTO 110 540 PRINT C$;RIGHT$(F$,1):GOTO 110 560 REM *** Program data *** 570 REM ***  800 DATA "Does this bother you?/" 810 DATA "I'd like to know more!" 820 DATA "Do you often feel?" 830 DATA "Do you enjoy feeling?" 840 DATA "Do you really believe I don't?" 850 DATA "Perhaps, in my own time, I will." 860 DATA "Do you want me to? 87Keywords *** 580 DATA "can you","can i","you are","youre","i dont","i feel" 590 DATA "why dont you","why cant i","are you","i cant","i am","im" 600 DATA "you","i want","what","how","who","where","when","why" 610 DATA "name","cause","sorry","dream","hel0 DATA "Do you think I should be able to? 880 DATA "Why can't you?" 890 DATA "Why are you interested in whether or not I am?" 900 DATA "Would you prefer I were not?" 910 DATA "PERHAPS IN YOUR FANTASIES I AM*" 920 DATA "How do you know you can't? 930 OR K=1 TO N1 290 READ K$ 300 IF S>0 THEN 330 310 L=INSTR(I$," "+K$+" ") 320 IF L>0 THEN S=K:T=L:F$=K$ 330 NEXT K 340 IF S>0 THEN K=S:L=T:GOTO 360 350 K=36:GOTO 490:REM WE DIDN'T FIND ANY KEYWORDS 360 REM *** Perform string swaps for persons *** 3  40 DATA "Why do you feel sorry?/" 1250 DATA "Listen, I'm on your side./" 1260 DATA "What does the dream suggest to you?/" 1270 DATA "Do you dream often?/" 1280 DATA "It must be nice to have dreams. I don't.../" 1290 DATA "The dream comes from deep inblem./" 1000 DATA "Oh, I?" 1010 DATA "Well, let's talk about you for a while now./" 1020 DATA "What would it mean to you if you got?" 1030 DATA "Why do you want?" 1040 DATA "Suppose you soon got." 1050 DATA "What if you never got?" 1060 DATA "Someti your mind./" 1300 DATA "Well, how do you do! Can I help you?/" 1310 DATA "You seem somewhat uncertain./" 1320 DATA "Why the uncertain tone?/" 1330 DATA "Can you be more positive?/" 1340 DATA "You aren't sure?/" 1350 DATA "You don't know?/" 1360 DAmes I also want." 1070 DATA "Why do you ask?/" 1080 DATA "Does that question interest you?/" 1090 DATA "What answer would please you most?/" 1100 DATA "What do you think?/" 1110 DATA "Are such questions on your mind often?/" 1120 DATA "What do you reTA "Oh. Well, then, what?" 1370 DATA "You seem a little negative./" 1380 DATA "Why not?/","Are you sure?/","Why 'No'?/" 1410 DATA "Why are you worried about my?" 1420 DATA "What about your own?" 1430 DATA "Can you think of a specific example?/" 1440ally want to know?/" 1130 DATA "Have you asked anyone else?/" 1140 DATA "Have you asked these questions before?/" 1150 DATA "What exactly are you thinking about?/" 1160 DATA "Well, let's be nice, now./" 1170 DATA "Let's not talk about people behind th DATA "When?/" 1450 DATA "What are you thinking of?/" 1460 DATA "Oh, nothing is Always the same./" 1470 DATA "Think so?/" 1480 DATA "But you aren't sure you." 1490 DATA "Do you doubt you?" 1500 DATA "In what way?/" 1510 DATA "What resemblance do youeir back./" 1180 DATA "Is that the real reason?/" 1190 DATA "Any other reasons?/" 1200 DATA "Does that reason explain anything else?/" 1210 DATA "What other reasons might there be?/" 1220 DATA "Oh, excuse me!/" 1230 DATA "No hard feelings, now./" 12 see?/" 1520 DATA "What does the similarity suggest to you?/" 1530 DATA "What other connections do you see?/" 1540 DATA "Could there really be some connection?/" 1550 DATA "How?/" 1560 DATA "You seem rather sure of this!/" 1570 DATA "Are you sure?/" DATA "Have you tried?/" 940 DATA "Perhaps you can, now,!" 950 DATA "So you came to me because you are." 960 DATA "How long have you been?" 970 DATA "Do you think it is normal to be?" 980 DATA "Do you enjoy being?" 990 DATA "Let's get back to your pro  s?/" 1650 DATA "Well, everyone needs friends./" 1660 DATA "Remember, I am a computer./" 1670 DATA "Meaning me, perhaps?/" 1680 DATA "Think of me as a friend./" 1690 DATA "What about computers?/" 1700 DATA "So machines are part of the problem?/" 1710 DATA "I like to think computers can help people./" 1720 DATA "Sometimes computers do cause people problems./" 1730 DATA "So what seems to be the problem?/" 1740 DATA "So what does this suggest to you?/" 1750 DATA "I see./" 1760 DATA "I'm not sure I understand you fully./" 1770 DATA "Could you be more specific?/" 1780 DATA "Can you elaborate on that?/" 1790 DATA "That's interesting!/" 1810 REM *** Data for selecting replies *** 1830 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 1840 DATA 28,a **** HP BASIC PROGRAM LIBRARY ************************************b 1b LANDER: ROCKET LANDING VEHICLE8b \b 36684 REV A -- 10/73cb b$ **** CONTRIBUTED PROGRAM **************************************4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 1850 DATA 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 1860 DATA 80,3,83,7,90,3,93,6,99,7,106,6 b. PROGRAM LANDERb8 bB bG ()cL "WELCOME TO THE PUBLIC SCHOOL FOR BUDDING ASTRONAUTS!"'cV 9c`A$ ((, )kcj " DO YOU WANT INSTRUCTIONS (YES OR NO) ";uct M$}c~ c (M$,)"N" c "YOU ARE AT THE  1580 DATA "I see./","Aha!/" 1600 DATA "What about your friends?/" 1610 DATA "Do your friends worry you?/" 1620 DATA "I think they probably mean well./" 1630 DATA "Perhaps you should be more open with your friends./" 1640 DATA "Do you like your friend  @ X0 ^hJ X0K:XX0hT V02dK:VV0%i^ "INITIAL CONDITIONS: STANDARD, OLD, OR NEW ";/ih M$Jir (M$,)"S" ]i| XKoi V2dKzi i (M$,)"N" i XX0i VV0iND";d "OF TIME."d e " IF YOU BURN ZERO, THEN YOU WILL FALL FASTER BECAUSE OF ";$e "GRAVITY."8e P  : P}e " IF YOU BURN EXACTLY THAT REQUIRED TO OVERCOME GRAVITY, ";e  "THEN"e "YOUR VELOCITY WILL BE CONST i X(()(dKd)) di V(()( K ))j VV(MG)X !j X0X-j V0V`jF ((M(VGX)(MG))~) hj j "INITIAL HEIGHT: ";X;"FEET"j "INITIAL VELOCITY: ";V;"FEANT."e " IF YOU BURN MORE, THEN YOU WILL SLOW DOWN OR EVEN START "; f( "TO MOVE"3f2 "UPWARD (VELOCITY IS POSITIVE)!"Mf7 P  : P:::Uf< fF "THE IDEA IS TO GET THE LANDER DOWN TO THE SURFACE, LANDING ";fP "WITH AS";ET/SEC"j "TOTAL FUEL SUPPLY: ";F;"UNITS"k& "MAXIMUM BURN: ";M;"UNITS/SEC"@k0 "AMOUNT OF BURN TO CANCEL GRAVITY: ";G;"UNITS/SEC"Hk: PkD kN "TIME","HEIGHT","VELOCITY","FUEL","BURN"kX kb Tkl TTkv T,X,V,FfZ "LITTLE VELOCITY AS POSSIBLE."gd "THERE IS MORE THAN ENOUGH FUEL, BUT BE CAREFUL NOT TO WASTE ";(gn "IT!"0gx hg "LANDING ON THE MOON IS EASIER, TRY THAT FIRST."pg xg g "GOOD LUCK AND HAPPY LANDINGS!"g g X;k Bk B1(B)k B1 M l " ","MAX BURN IS ";M;"BURN ";l  l T8:T9T82l B1 Al T9FB1Nl ABGal RVVAXrl R  l A  l T8(V(R))Al  l  V 0:V0g g g "LOCATION: MOON OR EARTH ";g M$h (); h h K1h (M$,)"M" , FFB11mH XQs l>mR TTIm\ 8 fmf T8 T8 T9  mp TT9,"OUT OF FUEL"mz FB1m XXVT9AT9m CONTROLS OF A ROCKET LANDING VEHICLE."c d "INITIALLY YOU ARE A GIVEN DISTANCE ABOVE THE SURFACE ";.d "MOVING";Xd "DOWNWARD (VELOCITY IS NEGATIVE)."d "YOU CHOOSE THE AMOUNT OF FUEL TO BE BURNED DURING THE NEXT ";d "ONE SECO  CE AND MEN,"r " OFT' GO ASTRAY."r s "HAVE YOU EVER THOUGHT OF A DIFFERENT LINE OF WORK??")s Ls (())  , , xs "YOUR NEXT OF KIN WILL BE NOTIFIED."s s "YOU JUST CREAMED A 29 MEGABUCK LANDn FFB1T8n$ TTT8n. VVAT8n8 T,O,V,FnB nL oV V  9o` (()) j ,~ , , , eoj "YOU ARE NOW A QUALIFIED ASTRONAUT."pot o~ "AS GENTLE AS A KITTEN'S PURR!!"o o "A BER!"s s "AREN'T YOU GLAD THIS IS ONLY A COMPUTER SIMULATION!!"t t T CREAMED A 29 MEGABUCK LAND (())  , , xs "YOUR NEXT OF KIN WILL BE NOTIFIED."s s "YOU JUST CREAMED A 29 MEGABUCK LANDUTTERFLY COULDN'T HAVE DONE BETTER!"o o "AS SOFT AS A SNOWFLAKE!" p 6p "MR. SPOCK WOULD BE PROUD OF YOU!!!"Ap Sp V < zp (())  , , ,( p "A BIT ROUGH, BUT YOU ARE STILL IN ONE PIECE!"p p "IF YOU HAD BEEN DRIVING A 1980 LTD, THAT WOULD HAVE COST";q " YOU $500!"q Mq "ANY FASTER AND YOU WOULD HAVE BOUNCED!"Xq q( "YOU HAD BETTER CHECK YOU LANDING GEAR!!"q2 q< V  qF (()) P ,d ,x , , qP "IS YOUR MEDICAL INSURANCE PAID UP??" rZ Erd "YOU GOT DOWN, BUT YOU WILL NEVER BE AN ASTRONAUT!"Prn rx "NEIL ARMSTRONG DID IT THE FIRST TIME!!"r r "THE BEST LAID SCHEMES OF MIVVAT9m AGm T8(V(VVAX))Gm T8T9  n XXV(T9)A(T9)+n VVA(T9)8n TTEn T,X,Vcn T8(V(VAX))Gxn T8   n XXVAn VVAn n TTT9  ARE MENACING THE UNITED "dZ( "FEDERATION OF PLANETS."dd(dn(dx(5e( "YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS"Ve( "CAPTAIN OF THE STARSHIP:"e( "'NAV' COMMAND= WARP ENGINE CONTROL --"e( " COURSE IS IN A CIRCULAR NUMERICAL 4 3 2"e( " VECTOR ARRANGEMENT AS SHOWN . . ."1f( " INTERGER AND REAL VALUES MAY BE . . ."lf( " USED (THUS COURSE 1.5 IS HALFWAY 5---------1"f( " BETWEEN 1 AND 2) . . ."f( " Va' STARTREK INSTRUCTIONSa$' ,b.' I  : I) "STARTREK": J (b8' J,IbB' I ObL' I (,x(,,),),),*,l*,*,*UbV'yb`' "HIT RETURN TO CONTINUE";RET$bj' ,bt' Ib'b' "HIT RETURN TO CONTINUEALUES MAY APPROACH 9.0 WHICH . . ."g( " IS ITSELF EQUAL TO 1.0 6 7 8"g(Gg( "ONE WARP FACTOR IS THE SIZE OF "pg) "ONE QUADRANT. THEREFORE, TO GET"g) "FROM QUADRANT 6,5 TO 5,5 YOU WOULD"g) "USE COURSE 3";b' A$b'"STARTREK"b' :::EXIT HERE::::b'b(!c ( " * * * INSTRUCTIONS FOR STAR TREK * * *"'c(bc( "THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GRID."c(( "AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8"c-( "SECTOR GRI, WARP 1."g")g,) "'SRS' COMMAND= SHORT RANGE SENSOR SCAN"$h6) " SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT."^h@) " SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:"hJ) " <*> = YOUR STARSHIPS POSITION"hT) " +++ = KLINGON BATTLESHIP"D."c2( c<( " YOU WILL BE ASSIGNED A STARTING POINT"%d=( "SOMEWHERE IN THE GALAXY TO BEGIN A TOUR OF DUTY "XdF( "AS COMMANDER OF THE STARSHIP 'ENTERPRISE';"dP( "YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF "dQ( "KLINGON WARSHIPS WHICH h^) " >!< = STARBASE"hh) " * = STAR"ir) " A CONDENSED STATUS REPORT WILL ALSO BE PRINTED."$i|)*i)Yi) "'LRS' COMMAND = LONG RANGE SENSOR SCAN"i) " SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON "i) " EACH SIDE OF THE   T"n* " GIVES STATE OF REPAIR OF ALL DEVICES, WHERE A "&o* " NEGATIVE STATE OF REPAIR SHOWS THAT THE DEVICE "Io* " IS TEMPORARILY DAMAGED."Oo*xo* "'COM' COMMAND = LIBRARY COMPUTER"o* " THE LIBRARY COMPUTER CONTAINS SIX OPTIONS:"S THE NUMBER OF KLINGONS."k)" *EXAMPLE* 207=2 KLINGONS,0 STARBASES,7 STARS2"k)/k) "'PHA' COMMAND = PHASER CONTROL"mk) " ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS "k) " BY ZAPPING THEM WITH SUITABLY LARGE UNITS OF "k) " o* " 0= CUMULATIVE GALACTIC RECORD"p* " WHICH SHOWS COMPUTER MEMORY OF THE RESULTS OF"Mp*" ALL PREVIOUS LONG RANGE SENSOR SCANS"ip+ " 1= STATUS REPORT"p + " WHICH SHOWS THE NUMBER OF KLINGONS, STARDATES"p+ " ENERGY TO DESTROY THEIR SHIELD POWER. (REMEMBER, " l) " KLINGONS HAVE PHASERS TOO!)"l*8l* "'TOR' COMMAND = TORPEDO CONTROL"vl&* " TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE "l'* " CONTROL. IF YOU HIT THE KLINGON VESSEL, HE IS AND STARBASES REMAINING IN THE GAME."p + " 2= PHOTON TORPEDO DATA":q*+ " WHICH GIVES THE DIRECTION AND DISTANCE FROM"zq4+ " THE ENTERPRISE TO ALL KLINGONS IN YOUR QUADRANT"q>+ " 3= STARBASE NAV DATA"qH+ " WHICH "l0* " DESTROYED AND CANNOT FIRE BACK AT YOU. IF YOU ""m:* " MISS, YOU ARE SUBJECT TO HIS PHASER FIRE."_mN* " NOTE: THE LIBRARY COMPUTER (COMMAND 'COM') HAS AN"mX* " OPTION TO COMPUTE TORPEDO TRAJECTORY (OPTION 2)."mb*ml* "'SHE'  GIVES DIRECTION AND DISTANCE TO ANY"qR+ " STARBASE IN YOUR QUADRANT."+r\+ " 4= DIRECTION/DISTANCE CALCULATOR"erf+ " WHICH ALLOWS YOU TO ENTER COORDINATES FOR"rp+ " DIRECTION DISTANCE CALCULATIONS."rz+ " 5= GALACTIC 'RCOMMAND = SHIELD CONTROL"nv* " DEFINES NUMBER OF ENERGY UNITS TO BE ASSIGNED TO "Dnw* " SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. "}n* " NOTE THAT TOTAL ENERGY INCLUDES SHIELD ENERGY."n*n* "'DAM' COMMAND = DAMAGE CONTROL REPOREGION NAME' MAP"r+ " WHICH PRINTS THE NAMES OF THE SIXTEEN MAJOR"5s+ " GALACTIC REGIONS REFERRED TO IN THE GAME.";s+Us, SUB TO CLEAR SCREENbs, ()hs-ns-EN MAJOR"5s+ " GALACTIC REGIONS REFERRED TO IN THE ENTERPRISE (WHICH IS IN THE "i) " MIDDLE OF THE SCAN)"%j) " THE SCAN IS CODED IN THE FORM '###' WHERE THE "^j) " UNITS DIGIT IS THE NUMBER OF STARS, THE TENS "j) " DIGIT IS THE NUMBER OF STARBASES, AND THE "j) " HUNDREDS DIGIT I   HOW TO PLAY STARTREK ON THE OSBORNE 1 SUPEҠ STARTRE i wordgam writte i MBASIC Th BASI diskett controls fro driv A th gam diskett i driv B To start, after bringing up MBASIC, TYPE  LOA "B:STARTRE (Becaus th MBASI progra fo STARTRE i lon i take measurable time to load into memory. D no tr t d anythin t spee thi up jus b patien unti the red light on B drive turns off and B drive stops running.) RUN ******************************************************************* **SUPER STAR TREK INSTRUCTIONS** ******************************************************************* 1 Whe yo se COMMAN printed ente on o th lega commands (nav, srs, lrs, pha, tor, she, dam, com, or xxx). 2 I yo shoul typ i a illega command you'l ge shor list of the legal commands printed out. 3 Som command requ  o woul us cours 3 war factor 1. SRӠ COMMAND=shor rang senso sca--show yo sca o you present quadrant. Symbology on your sensor screen is as follows: ,E.=your starship's position +K+=Kl quadrant is further divided into an 8x8 sector grid. Yo wil b assigne startin poin somewher i th galaxy t begi tou o dut a commande o th Starshi Enterprise you mission t see an destro th fleingon battle cruiser .B,=Federation Starbase (refuel/repair/re-arm here) * =star A condensed 'status report' will also be presented. LR COMMAND=lon rang senso scan--show condition i spac fo on quadran o e o Klingo warship whic ar menacin th Unite Federatio o Planets. Yo hav th followin command availabl t yo a captai of the Starship Enterprise: NAV COMMAND=Warp Engine Control-- 4 3 2 course is eac sid o th Enterpris (whic i i th middl o th scan) Th sca i code i th for nnn wher th unit digi i th numbe o stars th ten digi i th numbe o starbases an th hundred digi i thin a circular numerical . . . vector arrangement as shown. In- ... teger and real values may be used. 5 --,E.-- 1 (Thus course 1.5 is halfway between ... 1 and 2). . .  number of Klingons. Example: 207=2 Klingons, No Starbases, and 7 stars PH COMMAND=phase control--allowyou t destro th Klingo battl cruiser b zappin the wit suitabl larg unit o energ t deplet thei. 6 7 8 Value may approach 9.0, which it- COURSE self is equivalent to 1.0. On war facto i th siz o on quadtrant Therefore t ge fro quadran 6, t 5,5 y shiel power (Remember Klingon have phasers too) TOҠ COMMAND=photo torped control--torped cours i th sam a use i war engin control I yo hi th Klingo vessel h i destroye an conno fir bac a youir yo t ente dat (fo example th 'nav comman come bac wit 'cours (1-9)?') I yo typ i illega dat (lik negativ numbers) tha comman wil b aborted. Th galax i divide int a 8x quadran grid an eac  istance calculator: Thi optio allow yo t ente coordinate fo direction/distance calculations. Option 5=Galactic region name map: Thi optio print th name o th sixtee majo gal tota ship' energy Not tha th statu displa tota energ includes shield energy. DA͠ COMMAND=damag contro report--give th stat o repai o al devices,wher negativ 'stat o repair show tha thactic regions. ons. Option 5=Galactic region name map: Thi optio print th name o th sixtee majo gale device is temporarily damaged. COM COMMAND=Library Computer The Library Computer contains six options: Option 0=Cumulative galactic record: thi optio show compute memor o th result o al previous short and long range sensor scans. Option 1=Status report: Thi optio show th numbe o Klingons Stardates an Starbases remaining in the Game. Option 2=Photon torpedo data: Thi optio give directio an distanc fro th Enterprise to all Klingons in your Quadrant. Option 3=Starbase navigation data: Thi optio give directio an distanc t an Starbas within your quadrant. Option 4=Direction/D I yo miss yo ar subjec t th phase fir o al othe Klingon i the quadrant. (Read COM COMMAMD) SH COMMAND=Sheil control--define th numbe o energ unit t b assigne t th shields Energ i take fro  --------- |"f "| |"7g` "----------------------------------------------------"Kg I : IXg ()pg( :::::::::g );"CREATED BY:"g );" "gT );""b "| | | |"*cX "| | | |"gc  "| | | |"c "| | | |"c "|  A N D Y"g );" "h );" W O O L L E Y"h I : I'h ()4hn ()Zh "WOULD YOU LIKE INSTRUCTIONS ?"dh A$ zh A$"YES"  hh A$"NO" $h ()h "THE OBJECT O | | |"dL "| | | |"[d "| | A N D Y 5 0 0 ! ! ! | |"d "| | | |"dx "| | F ANDY 500 IS TO COMPLETE YOUR TRIP" i0 "FROM LOS ANGELES, TO SAN FRANCISCO IN THE LEAST"Ai "POSSIBLE TIME. TO START YOUR ENGINE, PUSH THE"xi "LETTER 'G'. TO TURN LEFT, PUSH THE LEFT ARROW."i* "TO TURN RIGHT, PUSH THE RIGHT ARROW."i4 "TO | |"e "| | | |"Oe@ "| | | |"e "| | | |"e "| |  BRAKE, PUSH THE UP ARROW. TO ACCELERATE, "i> "PUSH THE UP ARROW." j I (#: Ij$ ()j&j AZAj TRACK():TRACK$"*"ijPSLOW :ROW:CAR:CAR$"V" jSTALLd:OFF.TRACKjCLR$() j|LEFT:WIDE:EDGE4 | |"fl "| | | |"Cf "| | | |"f4 "| | | |"f "| -----------------------------------:BOTTOMjRIGHTLEFTWIDEjDTOP$()"="( )kBOTTOM$()"="(BOTTOM)( )Nk ALEFT$():ARIGHT$( ):SLOW$( ):FAST$( )hkp CLR$;LEFT);TRACK$;k CAR);CAR$;RIGHT);TRACK$k8RANDOM!:CURVEk RANDOM!ad ()a "----------------------------------------------------"6b "| |"sb, "| -------------------------------------------- |"b "| | | |  : l I BOTTOM:TRACK(I)TRACK(I): IlTRACK(BOTTOM)LEFTmL LEFT);TRACK$;RIGHT);TRACK$=m TOP$;(CAR);CAR$;BOTTOM$jm CARTRACK() CARTRACK()WIDE mx ();:OFF.TRACKOFF.TRACKmSTEERm@ I SLOWma Typed manually by Dan Woolley from the firstb issue of Portable Companionb ()Bb " Wizard of OsZ - 'MONSTER'"qb " (c) 1982, by Wizard of OsZ"b(:: "Do you require instructions (Y or N)";X$b2 (ACTION$m ACTION$SLOW$ SLOWSLOWml ACTION$FAST$ SLOWSLOWn ACTION$ARIGHT$ STEER=n4! ACTION$ALEFT$ STEEREn! Iun! ROW CLR$;"THE RACE IS OVER.": #n!CARCARSTEERn`" SLOW SLOWn" SLOWSTALL X$,)"N" zb<: " In the game of 'Monster', you attempt to gain" "thing above 1000 is excellent. As is common to games"qH "of this type, I have left out a number of thi*You get the treasure free!***";(): ^u Md N )v GN$;"Do you want to (F)ight, (R)un, or (B)ribe? "^vZ9$$(): Z9$"F" Z9$"R" Z9$"B" v Z9$"F"  : Z9$"R"  : Z9$"B"  : v "How mangs you"qR "will have to find out for yourself . Good luck and" r\ "good hunting!":rf: "Press RETURN to continue.",X$: ()Grz ()Mrqr: OSBORNE I TERMINAL COMMANDSrE$():: ESCAPE CHARACTERrCLS$():: CLEAR ny combat points do you wish to use? ",K w KC : UY$;C;UN$;"Combat points": 6wI(()):L:CCK:KK #zQbw H  2: LMK H JrwLLL}:w "***The monster killed you! You lose everything!***"SCREENrDC$E$"=":: DIRECT CURSOR ADDRESSINGsGY$E$"g":: GRAPHICS ON sGN$E$"G":: GRAPHICS OFFAsHO$E$():: CURSOR HOMEisEP$E$"T":: ERASE TO END OF LINEsDY$E$")":: DIM DISPLAY ONsDN$E$"(":: DIM DISPLAY OFFw:: "Do you want to try again?";xZ$$(): (): Z$"Y" C:C:Q: 8=x :: "So long for now. Better luck next time!":fx ():I(() ): I x H  : H M HI 2x(: 0x2AX:BYx<X(sUY$E$"l":: START UNDERLININGsUN$E$"m":: END UNDERLINING t A( , ): CLS$Jt$CH$()DY$( )( )DN$:: FIELD CHARACTER (BORDER)t.CH$()DY$( )( )DN$:: FIELD CHARACTER (FIELD)t8CH$()( )():: TREEtBC(I))A:Y((I))BxF A(X,Y) <xP A(X,Y) RyZA(A,B):A(X,Y): I tydLynI(()):MI : I "A ";yx I ,,,,,,,,,,,,:,>,f,f,f,fy "Minotaur"y lines of text to be printed" p "below the map. The map will be reprinted and the"Ip  "display cleared. Your position will be displayed on"p "the map, as well as the location of trees in the"p  "forest. You must go around the #  ribe was accepted***";:QQK: |~& "***Your bribe was not accepted***";0 "***You must fight***": 4:: qD "***The guardian of the forest captured you,took half"N "your treasure, and the took you to a new locationX(())z I ,,,",,,6,@{ "Ten Silver Spoons":P : { "a Jeweled Sword":P:?{ "a Jar of Rubies":P2:_{" "a Treasure Chest":P:{, "Fifty Silver Coins":P2:{6 "100 Gold Pieces":Pd:{@ "a Box o "somewhere in the forest.....tough luck!***"bQQ:AX:BY: I9 :5lX(()):Y(()): A(X,Y) lavA(A,B):A(X,Y): ():  :I :|J(()):CCJ "***You fell into a pit and used ";UY$;J;UN$f Jewels":PK:{J: "***You beat the monster!***";() {TSS|^QQP|h P 3|r P : c|| "You have ";UY$;Q;UN$;" treasure points."|X$"":AX:BY:: "What direction ? (Hit '1' to re-display) ",X$: ׀ "combat points to climb out....." C ".....but you died while climbing out!***":   2> () C  "***The sword was enchanted and doubles your strength!***"CC:I(() ): I (): X$"" | X$"1" CLS$:  : | (X$,)"W" XX} (X$,)"E" XX5} (X$,) "N" YYQ} (X$,) "S" YYf} A(X,Y) R} A(X,Y) "***Oops.....You ran into a tree!***":XA:YB:  "LOOK OUT!!! The chest explodes when you open it!" "You fail to survive the massive explosion." [ "___________________________________________________" "There is a mirror in the chest....."  "It will kill any Baslisks you me}A(A,B):A(X,Y): t} "You only have";:~ "How much do you want to pay";K?~ KQ : UY$;Q;UN$;" treasure points": i~I(()):L: I K ~ H : KLP IH &~LLL}:~ "***Your bet!":N: "Your mirror killed the Basilisk!": T  z: HO$: I  : );: J  -* GY$;CH$(A(J,I));K4 J: GN$: I: EP$;GN$:[> S nH "A giant eagle carried you away to safety!"R: "You survived the forest!;: y "Cyclops";: y "Zombie";: y "Giant";:  z "Harpy";: $z "Griffin";: ;z "Chimera";: Qz "Dragon";: gz "Wyvern";: ~z "Baslisk";: z "Nothing";:Mz " is guarding ";:I$  Tree";݄ DC$;"$'";GY$;CH$();GN$" = Field" DC$;(");"5";"NW N NE"1 DC$;"#7";DY$;GY$;();( );();GN$;DN$;p DC$;"$5";"W ";DY$;GY$;( );( );( );GN$;DN$;" E"; DC$;"%7";DY$;GY$;();( );( );GN$;DN$; DC$; DISK.DOC -FOG/GAM.012 First Osborne Group (FOG) Games Disk This disk contains games submitted by David Anning of FOG. These include ALIEN, PRITPICT, and SKET. Each is an MBASIC program. AL i"&5";"SW S SE";ą;GY$;( );( );( );GN$;DN$;" E"; DC$;"%7";DY$;GY$;();( );( );GN$;DN$; DC$;$;p DC$;"$5";"W ";DY$;GY$;( );( );( );GN$;DN$;" E"; DC$;"%7";DY$;GY$;();( );( );GN$;DN$; DC$;s a file used by ALIEN and PICT is a file used by PRITPICT and by SKET. ALIEN is a graphics game. SKET is an etch-a-sktech game, which will save the sketch on a file for later redisplay using PRITPICT. KONG and MONSTER were submitted by Dan Woolley of FOG. KONG uses a machine level routine to quickly paint on the screen a whole block of graphics, such as a line or a stick figure. The machine level routine loaded by KONG is derived from the assembly language code given in GRAPH.PRN. MONSTER is copied from the Kelly Smith article on pages 37 thru 44 of the June/July 1982 issue of Portable Companion. It is an Adventure style game using Osborne graphics. Andy Woolley of FOG submitted ANDY-500, which involves steering a rac"\ "You won a treasure total of ";UY$;Q;UN$: "Congratulations!": "Would you like to play again?";: Nf "There is nothing to be found here.": |Tpz DC$;" '";GY$;CH$();GN$;" = Your location"; DC$;(");"'";GY$;CH$();GN$;" = %  DER1 simulates a lunar lander. TREKINS provides instructions for STARTREK, which may be found on -FOG/GAM.003. Also, see STARTREK.DOC on this disk. To use these programs, place the .BAS files in drive B and MBASIC.COM in drive A. At the A> prompt, type B: At the B> prompt, type A:MBASIC At the MBASIC Ok prompt, type RUN "program" where program represents the program of interest, which must be typed in capital letters surrounded by quotation marks.  Jim Woolley FOG Disk Librarian October, 1982 resents the program of interest, which must be typed in capital letters surrounded by quotation marks. ing car down a roadway. ELIZA, LANDER1, and TREKINS were received from the Osborne Users Group (OUG) of the Washington D.C. area. ELIZA simulates conversation with a psychologist. There was a version of ELIZA previously found on -FOG.004. LAN&  '