' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈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,&"_]` L/  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 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-(  Ϯՠ@跻~!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`%A$(J,I)A$(J,I1) %J:I0%XMAXXMAX1:%XX1D%5310R%B25150b%YMAXYMAX1t%YMAX705240~%YY1%I1XMAX%JYMAXC21%A$(J,I)A$(J1,I)%JC2A$(C1,I)""% J:I%5310%XMAXXMAX1&(XMAX105:C(A$)64:C1CXMAX4770&$FXX14$A85050;$ H$ ------U$ DELETEb$ ------i$ w$B24980$$I1XMAX$.JCYMAX$8A$(J,I)A$(J1,I)$BJ:I$LYMAXYMAX1$VYY1$`Y0Y1$j5310$tICXMAX%~J1YMAX*X11#4Y11#>3450"#H670+#R1502#\2E#fA7ĺ"DELETE"X#pA8ĺ"INSERT"_#z3y#"1-ROW 2-COLUMN ";A$#B(A$)#B1B24730#3#868#A8ĺ"AFTER ";#B1Ą"ROW ";A$:C(A$):C1CYMAX4770$B2Ą"COLUMN ";A$"b"UPPER/LEFT CORNER: ";A$&"l35400"vX3X1:"Y3Y1A"2H"1g""LOWER/RIGHT CORNER: ";A$q"3540{"X4X1"Y4Y1"D$"PR#1"""Y1Y3Y4"X1X3X4"(A$(Y1,X1)BL$,CW(X1));"X1"" Y1"D$"PR#0"" #)!rY1YMAX!|A$(Y,X)""&!A$9!A$(13)4270P!A$(Y,X)A$(Y,X)A$Z!4230a!Yh!X!(1);(13);(4);"CLOSE"!150!X1!Y1!630!1!1!868!2!868!&3!0868!:!D150!N2!X12 1% "READ FILE FROM DISK"> "FILENAME: ";:868I "";A$O  (A$,1)"A"(A$,1)"Z"ĺ"ILLEGAL FILENAME":4060 25  "LOADING" " ,D$"OPEN"A$ 6D$"READ"A$ @XMAX JYMAX TX1XMAX ^H$(X)!hCW(X$"DELETE"A$D$"OPEN"A$,D$"WRITE"A$6XMAX@YMAXN X1XMAXYH$(X)dCW(X)r(Y1YMAX2A$(Y,X)<YFXPD$"CLOSE"ZY1dX1n150x4650D$"CATALOG"I123I7)" "I $ B160L670V150#`2*j14t868M~"SAVE FILE TO DISK"b"FILENAME: ";A$wA$""İ150:670(A$,1)"A"(A$,1)"Z"ĺ"ILLEGAL FILENAME-PLEASE REENTER";:868:368011D$"OPEN"A$D$"CLOSE"A$ DX1  YY1 YYY1 160$ . 19104 : F L(A$)_ L2L3X10:Y10:t X1((A$,1))64 X11X110X110: Y1((A$,L1))Y11Y170Y1703:868$2:868."HEADER-";A$8H$(X)(64X)"."A (A$,1)"*"āI110:CW(I)A:I- CW(X)A5 I0B FXXXXQ IICW(FX)Y FXq I37XXXX1:3290z 150 160 670* 33904 670> 150H 2R 1\ "GO TO PAGE LOCATION: ";A$f 3540p X1Y10ız XX1 XXADER 0-QUIT ";*: A$:A$(13)İ150:670BD A$"0"A$"9"3130JN A$ZX A$"0"ė:fb A(A$)xl A1A93090v A3200,3670,3970,460,3370,4420,4690,4690,3610 3 868 2 868 "WIDTH=";A$ A(A$) A3A363200!X L(A$(I,X)) K2L< (A$(I,X),K1,M)B$3040q A$(I,X)(A$(I,X),1,K2)A$(A$(I,X),KM1,100)x K I I12000: 160 680 2 1& 8680 "1-WIDTH 2-SAVE 3-LOAD 4-CLEAR 5-GOTO 6-PRINT 7-DEL 8-INS 9-HE(1); B$(27)670+ B$(13)28202" K9, JC6 YYY1L@ YY2VJ 3060tT ** SEARCH AND REPLACE **^ A$(A$,(A$)2)h I1(A$)r (A$,I,1)"/"2980| B$(A$,I1) A$(A$,I1,30) M(B$) 2990 I I1YMAd YY2n 3060/x ** SUB-STRING SEARCH **D A$(A$,(A$)2)P M(A$)Z Y1YYc Y2Yq J1YMAX L(A$(J,X)) K1L (A$(J,X),K,M)A$2850 YYJ YJ 160 2:1 "RETURN TO CONTINUE, ESC TO END "; B$: X3X Y1YY Y2Y' K1YMAX5 J1XMAXK A$(K,J)A$2610X YYK:YKe XXJ:XJn 160x 2:1 "RETURN TO CONTINUE, ESC TO END"; B$:(1); B$(27)670( B$(13)25802 J< KF XXX2P XX3Z YYY1130:AN$"N"1810 &:YYOUR SELECTION: ";:Q$:Q$"0"Q$"7"17807"AQ(Q$)k"Q$:(13)::16302,0:AQ:0,0:62454:HC:370"WQ115:PK(16336)::":"HIT ANY KEY TO CONTINUE";:"&PH(16384):PH127Ĺ16368,0:(13):"01830#:216,0:PQ(222):"":"N$:AN$"Y"AN$"N"1730+!AN$"N"370h!:"SELECT THE BACKGROUNG COLOR":"FOR THE NEXT PICTURE"!5:"<0> BLACK 1":"<1> GREEN":"<2> VIOLET":"<3> WHITE 1"!"<4> BLACK 2":"<5> ORANGE":"<6> BLUE":"<7> WHITE 2"*"17:1:"ENTER L OR VERTICAL (H/V)? ";:AZ$:(13):1002? (AZ$)13ġ:370_ (AZ$)86(AZ$)721650s (AZ$)86FV1y  :5::"WARNING": 7:1:"YOU ARE ABOUT TO":"ERASE THE PICTURE IN MEMORY."!10:1:"DO YOU WANT TO DO THIS (Y/N)? ";:AU":565:"ENTER THE NAME"K@"OF THE PICTURE FILE: ";F$:(F$)0520nJ(4);"BLOAD";F$;",A8192":370TX273X273^Y184Y184hr:2:"HIT TO GO BACK TO THE MAIN MENU") |5:1:"DO YOU WANT THE LABEL TO":"BE HORIZONTA NAME: "F$::A5:"HIT TO GO BACK TO THE DISK MENU"W"ENTER THE NAME""OF THE PICTURE FILE: ";F$:(F$)0520(4);"BSAVE";F$;",A8192,L8192":370"16304,0:16297,0:1830:370,:"HIT TO GO BACK TO THE DISK MEN(1)UP07PP(16384):PP127Ĺ16368,0:1490A1430FV0XP0:YP1:Q1(AN$):A$(AN$,Q,1):1620:270:XX7::1830:370XP0:YP1:Q1(AN$):A$(AN$,Q,1):1620:270:YY7::1830:370:2:F$""F$"NONE""CURRENT FILE:Q1(AN$):A$(AN$,Q,1):1620:270:YY7::XP0:YP1:UP0:Q1(AN$):A$(AN$,Q,1):1620:270:YY7::1450XP0:YP1:Q1(AN$):A$(AN$,Q,1):1620:270:XX7::XP0:YP1:UP0:Q1(AN$):A$(AN$,Q,1):1620:270:XX7:P01.094(0):P1.749WHEN YOU'VE POSITIONED THE LABEL,":"HIT ANY KEY TO PLACE IT ON THE DRAWING."d8:"AFTER YOU'VE PLACED THE LABEL, HIT ANY":"KEY TO RETURN TO THE MAIN MENU."n20:1820x16304,0:16297,0:3:UP0FV1Ę16FX1:1450oFV1XP0:YP1AN$(AN$,(AN$)1):(13):1002:1350f(Z$)8AN$(AN$,(AN$)1):(AN$)0AN$(AN$,(AN$)1)((Z$)27FZFZ:13002FZ1Ğ<Z$;::1300F232,0:233,10:P:2:"USE YOUR PADDLES OR JOYSTICK":"TO POSITION THE LABEL."MZ5:"13:"COPYRIGHT 1984"522:12:"INCIDER MAGAZINE"MRR12000:RR:140r::(4);"CATALOG"::1820:5201650:FZ0 AN$"":Z$""::"USE THE KEY AS":"THE UPPER/LOWERCASE TOGGLE":5:"ENTER THE LABEL: ";'Z$:AN$AN$Z$:(Z$)13"V = SMALL PAINTBRUSH":"W = SMALL TIPPED PAINTBRUSH":"X = DARKER PATTERN":"Y = LIGHTER PATTERN":"Z = VERY LARGE SCATTERBRUSH"1820:16304,0:16297,0:66010:16::"REMBRANDT"15:19::"BY"17:16:"DON FUDGE"20: DIAGONAL":"L = BALL (4 WIDE)":"M = BALL (5 WIDE)":"N = BALL (8 WIDE)":"O = CIRCLE (4 WIDE)""P = CIRCLE (5 WIDE)":"Q = CIRCLE (8 WIDE)":"R = HORIZONTAL RECTANGLE":"S = VERTICAL RECTANGLE":"T = LARGE PAINTBRUSH":"U = LARGE TIPPED PAINTBRUSH"2000:RR:)216,0))"INPUT ERROR"8)U1500:C)5620L)150U)&160^)0670 XXX/YYY/R = REPLACE 'XXX' WITH 'YYY'"/(r23F(|"PRESS ANY KEY ";P(756V(_(160h(670n((:10:15:"VISI DATA"(15:19::"BY"(17:14:"LEE SWOBODA"(20:13:"COPYRIGHT 1984"(22:12:"INCIDER MAGAZINE" )RR1'''"/ = GLOBAL COMMAND MENU"D'""@ = CLEAR DATA CELL"g',"! = SORT ON CURRENT COLUMN'6"& = COLUMN SEARCH (EXCEPT /G)'@'J" /S = SUBSTRING MATCH"'T" /G = GLOBAL SEARCH (ALL DATA)"'^" NO SUFFIX = EXACT MATCH"'(h"240 &2XX1 &<IXMAXC21.&FJ1YMAXD&PA$(J,I)A$(J,I1)\&ZIC2A$(J,C1)""f&dJ:Ip&n5310w&x1&23&&"RANGE ERROR"&&I11000&I&150&160&&&670&&12)"VISI-DATA HELP"')1)16)1,B(((Y(Q)16(A1))1)4)1ICY(Q)(A1)16(B1)4Z DRAW SHAPEd4220n:21 "I MOVE TO ";A;",";C;",";B 4350 STORE MOVE$ X(Y(Q)).3. RESTART PROCESS8 340B L V THE FOLLOWING ARE SU-\:21:"THANKS FOR PLAYING!":4350::Da(13);(4);"PR#6"Jfpp LOOP TO PICK BEST POSSIBLE MOVEvzQ116 TEST IF SQUARE IS EMPTYX(Y(Q))02250Q USE ANY OPEN SQUAREY(Q)H FIND A,B,C A((Y(Q2170 H7 ALL SQUARES ARE FULL WITHOUT A WINNERA:21Q 4340:4340"THIS IS INCREDIBLE--YOU HAVE FORCED A " "DRAW. DO YOU HAVE THE NERVE TO "*"PLAY AGAIN? ";4PA$> TEST IF USER WANTS ANOTHER GAMEHPA$"Y"190RE VARIABLES AND FING A,B,C&bGK(N)0l4290:v:21q"TRYING TO BE CLEVER?":"I MOVE TO ";A;","C;",";B{4350 DRAW MOVE4220X(M(K(N),J)).3340ON LOOP TO SEE IF THERE IS A DRAWH164X(H)0PARE THE COMBINATIONS TO EACH OTHER0N1E1=ON1E_ LOOPS TO FIND COMMON SQUAREjJ14uG14M(K(N),J)M(K(O),G)1870&G0J:1980D IF SQUARE NOT OPEN KEEP CHECKINGNX(M(K(N),J))01980X SET SUBROUTIN J4350T STORE MOVE.^X(M(G,J)).3Dh RESTART PROCESSMr340T|J[G SEE IF PLAYER HAS 2 MARKERS IN 2 COMB WITH COMMON SQUAREE0X176L(X)21740EE1K(E)XXE22010# LOOPS TO COM:" TAKE TREE: ";:KB,0:A$:A$:787,(A$)128O:16304,0:16297,0:rA$((KY)):(KY)136A$"<-"(KY)149A$"->"" ";A$;:T PLANT TREE: ";:KB,0:A$:A$:786,(A$)128h:" TAKE TREE: ";:KB,0:A$:A$:787,(A$)128:16304,0:16297,0:A$((KY)):(KY)136A$"<-"(KY)149A$"->"" ";A$;:I" ";A$;:"0:A$:A$:786,(A$)12830:",";:KY771:5100N:::" MOVE UP: ";:KB,0:A$:A$:768,(A$)128:" MOVE DOWN: ";:KB,0:A$:A$:769,(A$)128:" MOVE LEFT: ";:KB,0:A$:A$:770,(A$)128:" MOVE RIGHT: ";:KB,0:A$:A$:771,(A$)1280:" PAUSE GAME"/4090::16304,0:16297,0:a23:12::" PRESS ANY KEY ";::KB,0:A$::z CHANGE CONTROLS :14:"BONGO'S BASH":I140:"-";::34,2:" THE CONTROLS ARE: ";:KY768:5100:",";:KY769:5100:",";:KY770:510ERE ARE THE PRESENT GAME CONTROLS:":" A--UP <- ->":" Z--DOWN RIGHT LEFT" :" DROP TREE":" RECOVER TREE":" -Q QUIT GAME":" -S TOGGLE SOUND":" YOURS AND THE TOP AND BOTTOM DOORS ARE THE ROBOTS'. YOU CAN'T GO THROUGH THEIRS AND YOURS ARE BLOCKED FOR THEM.":" YOU BEGIN WITH ONE ROBOT IN THE MAZE, AND A MEDIUM SPEED OF 3. YOU CAN CHANGE THESE SETTINGS OR THE GAME CONTROLS."j:" HNG TREES. THEY KILL YOU BY TOUCHING YOU.":" IN THE LOWER-RIGHT CORNER OF THE SCREEN IS ANOTHER TREE YOU CAN GET. IN THE MIDDLE OF THE MAZE ARE FLASHING PRIZES. YOU GET EXTRA POINTS FOR THESE.":4090v" THE TWO SIDE DOORS AREX  INSTRUCTIONS ":P14:"BONGO'S BASH":I140:"-";::34,30:" YOU ARE BONGO THE GORILLA AND YOU MUST EAT ALL THE FLASHING COCONUTS IN THE MAZE. WITH YOU IN THE MAZE ARE ROBOT SENTRIES. YOU KILL THEM BY DROPPIRT WITH HOW MANY ROBOTS? (1-7) 1";:35:KB,0:A$E A$(13)A$"1"] A$"1"A$"7"3060j RO(A$) 251,3:3 BONGOS& LV0:252,0:LEVEL 00 253,5:5 TREESD 780,7:SHAPE OF FIRST BONUS FRUITN 20510,0:20511,0:20512,0:ZERO SCORE":""#D1850 #NPQ254ĦW#XPQ6PQ5ĺ:"FILE NOT FOUND! TRY AGAIN...":1820k#bC3:1:64:370X122:Y9,(S,2 "2"),<X0:Y04,FS12,P125X,Y127X,Y:124X,1Y:128X,1Y128X,2Y:127X,3Y:126X,4Y:125X,4Y:124X,5Y:123X,6Y128X,6Y,ZX85:Y17,dS,n "3",xX0:Y0,S12N-156X,Y160X,Y:160X,1 "U")+58,058,5:59,661,6:62,062,53+ "M"Q+65,665,067,369,069,6[+ "N"+72,672,0:72,176,5:76,676,0+ ":"+79,2:79,4+ NUMBERS+ "1"+X0:Y0+ S12+96X,Y96X,6Y:95X,1Y:94X,6Y97X,6Y ,37,12637,139:36,12736,139:28,13436,127:29,13537,126:29,13439,134:29,13539,135g*V "COLUMN"q*` "C"*j39,041,0:42,1:38,138,5:39,641,6:42,5*t "O"*~46,048,0:45,145,5:46,648,6:49,149,5* "L"*52,052,655,6+1:37,100) X3237&) X,90:X,91-) X=) X911009H) Y02T) 31,XY]) Y,Xj) X3739z) X,92:X,95) X) X3237) X,102:X,103) X)X98100)38,X:39,X)X)$X3338).X,96:X,97)8X)B "4"X*L X8(> 31,55:32,56:38,56:37,56:38,57:39,57:38,55E(H X3237U(R X,54:X,55\(\ X(f 30,6639,57:30,6739,67:31,6639,58:30,6839,68(p "3" )z 30,92:30,93:30,100:30,101:31,103:32,101:38,9339,9339,9438,94:38,102:38,101:37,10' 1,766,8310,76D' ----------------------------------------c' NUMBERSm' "1"' 30,12:30,13:31,12:31,13' X3035' X,23:X,24' X' X1124' 32,X:33,X' X' "2"' X5658'* 30,X:31,X(4 Y12& Y,XY,X13/& 1,XY1110,XY118& Y,XB& "E"R& X528836]&& Y12m&0 Y,XY,X13t&: Y&D YXX136&N Z01&X 1,YZ10,YZ&b Z,Y,X&l "V"&v X198& X,70X,75& X1,70X1,75& X' 2,766,839,76X210,839X180,3839X50,3839X80,839XM% HORIZONTAL/VERTICAL LINESX% Y13% 8032.5Y,839X5032.5Y,3839X% 517.5Y,(397.56Y)39X1797.5Y,(397.56Y)39X% Y,X% "LEVEL"% "L"% X3410672&(176)256(175)1)6$ 232,((175)1):233,((176))=$ 0D$ 1_$" INITIALIZE VARIABLESk$, X164w$6 X(X)0~$@ X$J X176$T L(X)0$^ X$h -------------- PLOT BOARD --------------$r PLOT 4 LEVELS$| 3$ X03-% 80,839,19,34,49,5,22,39,56,8,23,38,53,9,26,43,60,12,27,42,57,13,30,47,64,16,31,46,61h# DIAGONALS OF 'CUBE'# 1,22,43,64,16,27,38,49,13,26,39,52,4,23,42,61# LOAD SHAPE TABLE AND SET POINTER (METHOD BY JEFFREY A. MILLS)$ DOS$;"BLOAD SA.SHAPES,A";(S ON EACH LEVELr" 1,6,11,16,13,10,7,4,17,22,27,32,29,26,23,20,33,38,43,48,45,42,39,36,49,54,59,64,61,58,55,52" DIAGONALS THROUGH LEVELSN# 1,21,41,61,13,25,37,49,2,22,42,62,14,26,38,50,3,23,43,63,15,27,39,51,4,24,44,64,16,28,40,52,1,18,35,52,41,55,59,63,52,56,60,644! VERTICAL THROUGH LEVELS! 1,17,33,49,2,18,34,50,3,19,35,51,4,20,36,52,5,21,37,53,6,22,38,54,7,23,39,55,8,24,40,56,9,25,41,57,10,26,42,58,11,27,43,59,12,28,44,60,13,29,45,61,14,30,46,62,15,31,47,63,16,32,48,64" DIAGONAL,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64Y VERTICAL ON EACH LEVEL! 1,5,9,13,2,6,10,14,3,7,11,15,4,8,12,16,17,21,25,29,18,22,26,30,19,23,27,31,20,24,28,32,33,37,41,45,34,38,42,46,35,39,43,47,36,40,44,48,49,53,57,61,50,54,58,62,5X,3),M(X,4)Z X,d BEST POSSIBLE MOVES`n 1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43x HORIZONTAL ON EACH LEVEL< 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44 Y(17) M(76,4) X(64)* L(76)5 K(76)A PB(76)H W DOS$(4) LOOP TO READ DATA FOR BEST POSSIBLE MOVES X116( Y(X)2 X< LOOP TO READ DATA FOR WINNING COMBINATIONS TO CHECKF X176 P M(X,1),M(X,2),M(BROUTINES USED IN THE PROGRAM<` SUBROUTINE TO READY GAMEBj Ht N~ Z 12:12u :"ONE MOMENT PLEASE"{  TEST IF PLAYING FOR REPEATED TIME (DONT WANT TO REDIM) Z02860 ELSE--PLAYED FOR 1ST TIME--DIMENSION VARIABLES 0::EXIT DOS ERROR HANDLING#"S)"TE"U SCAN FOR BAD SECTORSK"VQ"W"X::8:"SCANNING FOR BAD SECTORS":8:"------------------------":TM,7"b24:7::" PRESS ANY KEY TO CANCEL ";:8:1:BM,21:#lT034:24590,T:"TRACK #";T10);TWRITE-PROTECTED.":6580:!E6ĺK$;" IS NOT HERE.":6580^!E8ĺ"CHECK DRIVE DOOR.":6580!E9ĺ"SORRY, DISK IS FULL.":6580!E10ĺK$;" IS LOCKED.":6580!"I CAN'T DO THAT.""24:12::" PRESS ANY KEY ";::K$:23:1:868:24:868:E1:"UNLOCK WHICH FILE? ";K$:23:"UNLOCKING ";K$;:868::D$;"UNLOCK";K$:i :::EXIT DOS COMMANDSo _u ` a ERROR HANDLING b c dE(222):FIND WHICH ERROR n222,0:23:868:22:1:868:"ERROR #";E;". ";!xE4ĺ"DISK IS 02K(K$):K:K6030,6040,6050,6060,6070:6000R:D$;"CATALOG":20:K$::23:1:"DELETE WHICH FILE? ";K$:23:"DELETING ";K$;:868::D$;"DELETE ";K$:23:1:"LOCK WHICH FILE? ";K$:23:"LOCKING ";K$;:868::D$;"LOCK ";K$:L 23: COMMANDSnop::14:"DOS COMMANDS":14:"------------"::8:"1. CATALOG CURRENT DISK"::8:"2. DELETE A FILE"::8:"3. LOCK A FILE"::8:"4. UNLOCK A FILE"::8:"5. RETURN TO MAIN MENU"z20:20:"?";:20:KB,0:K$:K$"1"K$"5"601 BETWEEN HEX AND ASCII2620:ONE LINE IN ASCIIzWIDE3ĺ4);Y100);Y10);Y;":";:SPACE BETWEEN ASCII AND DECIMALWIDE3İ610:ONE LINE IN DECIMAL ::::K039WIDE:"=";:::D$;"PR#0"::EXIT PRINT OUT SECTIONkl m DOSE)2)5);"----------":((40WIDE)2)20);:680:::K1WIDE:" 0 1 2 3 4 5 6 7 ";:::X039WIDE:"=";:::P01:V015:YV8(128P):Y100);Y10);Y;": ";660:ONE LINE IN HEX4);Y100);Y10);Y;":";:SPACEY TO PRINT, Q TO CANCEL";:K$:K$"Q"ĺ:N:D$;"PR#1":PRINTER IN SLOT #1|PRINT CHR$(15):REM EPSON CONDENSED PRINTPRINT CHR$(27);"0":REM EPSON REDUCED LINE FEEDWIDE2:NUMBER OF DISPLAYS:((40WIDE)2)5);"CIDER ZAP":((40WID(A$):SLOT FOR YOUR DISK DRIVEa^23:1:"WHICH DRIVE? (1-2) 1";:20:KB,0:A$:A$(13)A$"1"yhA$"1"A$"2"4190r24588,(A$):DRIVE YOU WISH TO ZAP |23:1:868: PRINT OUT SECTOR)23:1:"PRESS ANY KEK$"4"Ģ23:1:"PRESS A KEY TO WRITE TO DISK, Q CANCELS";:K$:K$"Q"Ĺ24598,2:24576:24598,1:23:1:868:403064030:WRONG KEY, RECYCLE@23:1:868:"WHICH SLOT? (1-6) 6";:19:KB,0:A$:A$(13)A$"6"JA$"1"A$"6"4160T24587,1630:K$"8"ĉ::,(24587)0İ4160DK$"1"İ3000:4030\K$"5"İ8000:4030tK$"6"İ6000:4010K$"7"İ7000:4010(24590)255Ģ23:1:"FIRST READ SECTOR":4030K$"2"İ1000:4000"K$"3"İ4500:23:868:4030r, 2. EXAMINE SECTOR"::" 3. PRINT OUT SECTOR"::" 4. WRITE SECTOR TO DISK"::" 5. RESTORE DELETED FILES":" 6. DOS COMMANDS"::" 7. CHECK FOR BAD SECTORS"::" 8. QUIT"680:23:20:"?";:20:KB,0:K$:K$"1"K$"8"40TINE TO CHANGE SQUARE NUMBER TO LEV,ROW,COLE0A((M(G,J)1)16)1i0B(((M(G,J)16(A1))1)4)10CM(G,J)(A1)16(B1)400 SUBROUTINE FOR BELL0(7);(7);:0RR12000:RR:0E/616304,0/@16297,0+/J16301,09/T16300,0A/^21G/he/r SUBROUTINE TO DRAW MOVEp/|X17/D92(B1)732(C1),13(A1)39(B1)7/PAUSE1100:PAUSE/X/D92(B1)732(C1),13(A1)39(B1)7/+0 SUBROU224,30227,30:228,31228,32:227,33224,33:224,30224,36:226,34228,36T. "O".233,20235,20:236,21236,25:235,26233,26:232,25232,21. "W"."245,11245,17:244,16:243,15:242,16:241,17241,11/, ENTER HI-RES WITHOUT ERASING IMAGY:159X,2Y:158X,3Y:159X,4Y:160X,5Y:159X,6Y157X,6Y:156X,5Y]-X44:Y26d-Sn- "4"{-X0:Y0-S12-192X,Y192X,6Y:192X,Y189X,3Y:188X,4Y193X,4Y:188X,3Y-X3:Y33-S- "ROW"- "R"J.k lm TRADING POST$n*opSC2ĉ:34,15::20:"SORRY, THE TRADING POST ONLY WORKS WITH SCENARIOS 1 AND 2. ":K11500:::3000z4020:4040::T(0)(BASE58):6310K140:"*";:: "YOU MAY CHOOSE:":" A. BASICS":AI":30)"O-LORD":30)"P-NINJA"?:" RETURN TO P.1"h16:19:KB,0:B$:B(B$):B133000BB64:B0B165090B45140B95150 5160OB:(BASE42),O:5000RB3:(BASE34),R:5000(CB9:(BASE36),C:5000" ";R$(R);" ";C$(C)::K140:"*";:S"A-GOOD D-HUMAN I-FIGHTER"~"B-NEUTRAL E-ELF J-MAGE""C-EVIL F-DWARF K-PRIEST"16)"G-GNOME L-THIEF"16)"H-HOBBIT M-BISHOP" 30)"N-SAMUR450lBASE46,PK"v160:4210b21:958:"CHANGE LUCK TO: (MIN 6, MAX 18) ";LN$:LN(LN$)wLN6LN184480BASE47,LN4((BASE47)((BASE47)4)4):160:4210 RECREATE CHARACTER:%N$(A),O$(O);21:958:"CHANGE AGILITY TO: (MIN 6, MAX 18) ";GN$:GN(GN$):GN6GN184420NPK32(GN8((BASE47)((BASE47)4)4))((BASE46)32((BASE46)32))XPK0PKPK256:BASE47,(BASE47)1:4440bPK255PKPK256:BASE47,(BASE47)1:4PIETY TO: (MIN 6, MAX 18) ";PN$:PN(PN$)>PN6PN184360zBASE45,PN4((BASE45)((BASE45)4)4):160:4210&21:958:"CHANGE VITALITY TO: (MIN 6, MAX 18) ";VN$:VN(VN$)0VN6VN184390:BASE46,(BASE46)VNVI:160:4210PD(QN$):QN6QN184300gPK32(QN8((BASE45)((BASE45)4)4))((BASE44)32((BASE44)32))PK0PKPK256:BASE45,(BASE45)1:4320PK255PKPK256:BASE45,(BASE45)1:4330BASE44,PK160:4210)21:958:"CHANGE 51ĉ::3000B1B64230CB4270,4300,4360,4390,4420,448021:958:"CHANGE STRENGTH TO: (MIN 6, MAX 18) ";SN$:SN(SN$)SN6SN184270BASE44,(BASE44)SNST:160:421021:958:"CHANGE I.Q. TO: (MIN 6, MAX 18) ";QN$:QN35,24:34,15:|"A) STRENGTH ";ST;:22:"D) VITALITY ";VI:"B) INTELLIGENCE ";IQ;:22:"E) AGILITY ";AG:"C) PIETY ";PI;:22:"F) LUCK ";LU21:"CHOOSE WHICH ONE YOU WISH CHANGED":" TO GO BACK TO PAGE 1 ";:KB,0:B$:B(B$)64: B1,255:INITIALIZE TRACK AND SECTORm)#24:8::" PRESS ANY KEY TO BEGIN ";:KB,0:K$::EXIT INITIALIZATION)#169,96,160,10,32,217,3,96,0)#1,96,1,0,1,1,32,96,0,97,0,0,1,0,0,96,1)#0,1,239,216<(<#HX$"0123456789ABCDEF":USED IN HEX-DECIMAL CONVERSIONSG(F#6500b(P#X08:R:24576X,R:~(Z#X016:R:24586X,R:(d#X03:R:24608X,R:(n#24598,1:READ FROM THE DISK(x#24587,0:24588,0:INITIALIZE SLOT AND DRIVE")#24590,255:2459STORER AND SECTOR COUNTER'##%'$#8'%# INITIALIZE>'&#D''#'(#::670::10:"ORIGINAL PROGRAM BY"::12:"MICHAEL PETERSEN":20:10:"FROM INCIDER MAGAZINE"(2#BUFFER24832:KB16368:TM34:BM35:RM33:T0:S0:D3:D$(4):INITIALIZE VARIABLESING ";A$;". LOAD AND SAVE IT!!!";:BUFFERK,(BUFFERK32):BUFFERK32,160:24598,2:24576:24598,1&:X0T(BUFFER1):S(BUFFER2):8010'23:1:"FINISHED DIRECTORY. PRESS ANY KEY. ";:KB,0:K$:24590,255:23:1:868:24:868::EXIT FILE RE1:"SCANNING THE DIRECTORY";:868:X(BUFFERK):X0K221:8080Q%^X2558080~%hA$"":YK3K31:A$A$((BUFFERY)):%r(A$,1)(160)A$(A$,(A$)1):8050%|23:1:A$;" WAS DELETED. R)ESTORE? ";:KB,0:K$:K$"R"8080d&23:1:"RESTOR14);"HIT ANY KEY ";:868:KB,0:K$:::EXIT SECTOR SCAN?$;E$<`$= SCAN DIRECTORY FORt$> DELETEDz$?$@T17:S15:A$""$J24590,T:24591,S:24576:(24599)64(24599)128Ģ23:"CAN'T READ DISK":24590,255:A%TK1122135:23:;":"$#vS015:24591,S:S16);S;#24576:(24599)64(24599)128ĺ::" ->TRACK ";T;", SECTOR ";S;" IS UNREADABLE.":::24599,0:REPORT ON BAD SECTOR#(16384)128T34:S15:CHECK FOR KEYSTROKE#::::24590,255:TM,3:BM,249$24:,ANOINTED FLAIL,STAFF,DAGGER,SMALL SHIELD,L. SHIELD,ROBES,LEATHER ARMOR/X%CHAIN MAIL,BREAST PLATE,PLATE MAIL,HELM,DIOS POTION,LATUMOFIS POTION,LONG SWORD +1,SHORT SWORD +1,MACE +1,STAFF OF MOGREFT0b%KANTINO SCROLL,LEATHER +1,CHAIN MAIL +1,PLATE MAIL +ST,THIEF,BISHOP,SAMURAI,LORD,NINJAb.0% OK,AFRAID,ASLEEP,PARALYZED,STONED,DEAD,ASHES,LOST FOREVERz.:% GOOD,NEUTRAL,EVIL.D% 0,0,0,13,0,11,0,9,0,7,0,5,0,3,0,1,1,0,1,13,1,11,1,9,1,7,1,5,1,3,1,1,2,0,2,13,2,11,2,9G/N%LONG SWORD,SHORT SWORD,ANOINTED MACE:K07:C$(K)::K07:S$(K)::K13:O$(K)::K120:TRK(K),SEC(K):j-n#T$(0)" ":K1136:T$(K):-x#SC1āK94100:T$(K)T$(K36):-#-%-%-% DATA STATEMENTS-%-%-% HUMAN,ELF,DWARF,GNOME,HOBBIT".&% FIGHTER,MAGE,PRIEALIZATION,&#,'# ,(#38000D,2#N$(20),TRK(20),SEC(20),T$(140),<#768,32:769,227:770,3:771,76:772,217:773,3:47083,0:47091,0:47092,1,F#BASE38000,P#47088,BASE(BASE256)256:47089,(BASE256),Z#KB16368:KEYBOARDJ-d#K15:R$(K):TO BEGIN ";:KB,0:A$:A$(13)ī8110K+:11:(16):"FAREWELL":::::+K120:47084,TRK(K):47085,SEC(K):768:N$(K)"":L115:N$(K)N$(K)((BASEL)):+TN(BASE):TN0N$(K)"":8140+N$(K)(N$(K),TN)+:+##+$# ,%# INITIO*r6:"WHICH SCENARIO ARE YOU USING?":"(1) PROVING (2) KOD (3) OTHER "*w255:23:36:16368,0:K$:K$"2"SC2:8090*|K$"1"SC1:8090*K$"3"SC3:8090*8055%+9000:22:1:958:10)"INSERT BACKUP DISK.":8)"PRESS YTHING FOR 1 MORE LEVEL?":K11200::::10)"WIZFIX IS THE ANSWER":10)"------"::K11500:*h" MAKE A BACKUP DISK OF YOUR CHARACTERS USING THE WIZARDRY UTILITIES. WIZFIXWILL HELP YOU DO ALL MANNER OF MAGIC. USE ONLY THE BACKUP!!!!!!"(<(= TITLE PAGE (>&(?.(@:x(J5:16::"+ +":6:16:" WIZFIX ":7:16:"+ +"::::100(T"-WIZARDRY KILLED OFF YOUR BEST FRIENDS?":K11200::"-YOU SAY YOUR BROTHER IS LOST FOREVER?":K11200:a)^"-YOU'D GIVE ANANY KEY. ";:A$::(4)"PR# 1"9':7100::(4)"PR# 0"C'7000X'A65A84ī7030'AA64:47084,TRK(A):47085,SEC(A):768:'8)"WIZARDRY ROSTER":K132:"-";::'K1202:(K64);". ";(N$(K),12),;(K65);". ";(N$(K1),12)::(;ACK-UPWIZARDRY DISK. YOUR OPTIONS NOW ARE:":&l"'A' TO 'T' CHOOSE A CHARACTER BY LETTER ENDS THE PROGRAM CTRL-P PRINTS OUT THE ROSTER":&v22:19:A$:A(A$):A278100&A16ī7080':4)"START PRINTER AND PRESS RADING POST"::C$(C);" ";N$(A);": ";T(0);" OBJECTS"U%K18:T(K)(BASE588K):%:K182:K;"-";T$(T(K));17(T$(T(K))));K1;"-";T$(T(K1)):::%S%T%U ROSTER%V%W%X:.&b7100:::"THESE ARE THE CHARACTERS ON YOUR B.":K11500::6020i$t"YOU MAY CHOOSE AN OBJECT BY NUMBER, OR PRESS TO GO TO TRADING POST."$~23:19:"";B$:B$""6020$B(B$):BTLOBTLO1(THI2)6270$B129BB36$BASE58,T(0)1:BASE58(8(T(0)1)),B:62104%14)"T DIAMONDS ONLY":TLO124:THI2:6210?#B:20(TT$).5:TT$:d#LKTLOTLOTHI:K;"-";T$(K)::3#VKTLOTHI1TLO1(THI2):20:K;"-";T$(K):#`19:K140:"*";:$jT(0)(BASE58):"YOU HAVE ";T(0);" OBJECTS.":T(0)7ĺ"YOU HAVE NO MORE ROOMTT$"BASIC ITEMS":TLO1:THI15:6210R"TT$"BETTER ITEMS":TLO33:THI15:6210"TT$"REALLY GOOD ITEMS":TLO64:THI14:6210"$TT$"PROVING GROUNDS ONLY":TLO130:THI3:6210".TT$"KNIGHT OF DIAMONDS ONLY":TLO94:THI14:6210$#8TT$"KNIGHT OF6160,6170,6180,6190,6200,6100!21:1:"TYPE NUMBER OF OBJECT TO DROP: ":" (0 TO EXIT): ";:KB,0:B$:B(B$):B48B566100!BB48:BT(0)6100!B0ī6020!KB8:BASE588K,(BASE668K)::BASE122,0!BASE58,(BASE58)1:6020'"" B. BETTER STUFF"d " C. REALLY GOOD STUFF":" D. PROVING GROUNDS ONLY":" E. KOD ONLY, PART 1" " F. KOD ONLY, PART 2":" G. DROP SOMETHING"::" RETURN TO P.1" 22:19:KB,0:B$:B(B$):B133000 B65B716070!BB64:B6150,KSTONE OF PIETY,BLARNEY STONE,AMULET OF SKILL5%AMULET OF SKILL,GREAT MAGE WAND,COIN OF POWER,STAFF OF GNILDA,HRATHNIR,KOD HELMET,KOD SHIELD,KOD GAUNTLETS,KOD ARMOR5%WERDNA'S AMULET,BEAR STATUE,FROG STATUE,BRONZE KEY,SILVER KEY,GOLD KEY,BLUE RIBBON4%SWINGING SWORD,PRIEST PUNCHER,PRIEST'S MACE,SWINGING SSWORD,RING PRO FIRE,CURSED PLATE +1,PLATE MAIL +5,STAFF OF CURING,RING OF REGEN,METAMORPH RING,5%STONE STONE,DREAMER'S STONE,DAMIEN STONE,GREAT MAGE WAND,COIN OF POWER,STONE OF YOUTH,MIND STONE,+3,THIEVES DAGGER,BREAST PLATE +3,LORDS GARB,MURASAMA BLADE,SHURIKEN,CHAIN PRO FIRE,EVIL PLATE +3,SHIELD +33%RING OF HEALING,RING PRO UNDEAD,DEADLY RING,ROD OF RISING,AMULET OF COVER,ROBE +3,WINTER MITTENS,NCKLCE PRO MAGIC,STAFF OF LIGHT,LONG SWORD +52,EVIL SHIELD +3,MAKANITO AMULET,MALOR DIADEM,BADIAL SCROLL,SHORT SWORD -1,DAGGER +2,MACE -22%STAFF -2,DAGGER OF SPEED,CURSED ROBE,LEATHER -2,CHAIN -2,BREAST PLATE -2,SHIELD -2,CURSED HELMET,BREAST PLATE +2,SILVER GLOVESk3%EVIL SWORD +3,EVIL SSWORD MILWA SCROLL,DILTO SCROLL,COPPER GLOVES,LEATHER +2,CHAIN +2,PLATE MAIL +21%SHIELD +2,HELM +2(EVIL),DIAL POTION,PORFIC RING,WERE SLAYER,MAGE MASHER,MACE PRO POISON,MONTINO STAFF,BLADE CUSINART',MANIFO AMULET\2%ROD OF FLAME,EVIL CHAIN +2,NEUT P-MAIL +1,SHIELD +1,BREAST PLATE +1,BADIOS SCROLL,HALITO SCROLL,LONG SWORD -1,SHORT SWORD -10l%MACE -1,STAFF +2,DRAGON SLAYER,HELM +1,LEATHER -1,CHAIN -1,BREAST PLATE -1,SHIELD -1,JEWELED AMULET,BADIOS SCROLLI1v%SOPIC POTION,L. SWORD +2,S. SWORD +2,MACE +2,LOHOTCIDER BOOKLET OR"/"YOUR APPLE MANUALS."5V$*pSF$""ĺ:"FILE "SF$" NOT FOUND!"0zIPS$"ON"ĺD$;"PR#0"O^R$"Y"Ā(F$(DN),1)" "F$(DN)(F$(DN),(F$(DN))1):930D$;"- "F$(DN);"/";SF$:"FOR INSTRUCTIONS ON CONVERTING DOS 3.3""TO PRODOS, SEE THE (F$,(F$)1):780/F$(DN)F$"/"(L4$,2,15)8 570I*L4$""630o4L4$""DN0ĺ"END OF FILE.":850>L4$""DN0860HDN0860RDN0ĺD$;"CLOSE "F$(DN):DNDN1:PRNT$"NO":570\L5$:L5$: READ BLOCK COUNTf:L4$:D$;"CLOSE "!<<<":" PATHNAME FOR "SF$:" IS":" "F$(DN)::D$;"CLOSE "F$(DN)h"RUN THIS FILE NOW? (Y/N) ";R$:R$"Y"R$"N"730R$:900(L4$,18,3)"DIR"810D$;"CLOSE "F$(DN):LFO$(DN)L4$:DNDN1F$F$(DN1) (F$,1)" "F$OCKS"8703(L4$,2,15)(F$(DN),(V$)2,15)630bLFO$(DN)""L4$LFO$(DN)PRNT$"NO"630L4$LFO$(DN)PRNT$"NO"PRNT$"YES":6301(2DN):(L4$,C): READ FILESSF$""750(L4$,2,15)SF$750F:(7);:(7);" >>>GOT IT(DN)!DD$;"OPEN "F$(DN)",TDIR"7ND$;"READ "F$(DN)}XL1$:F$(DN1)""Ė1(2DN):(L1$,C): READ NAME bL2$:F$(DN1)""Ė1(2DN):(L2$,C): READ TITLE lL3$:L3$: READ BLANK LINEvL4$ (L4$,6)"BL"( "OUTPUT TO YOUR PRINTER? (Y/N) ";E A$:A$"Y"A$"N"480M A$Y D$(4)r A$"Y"ĺ(27);(17)x  A$"Y"ĺ:D$;"PR#1":PS$"ON" F$(100),LFO$(100) &F$(DN)V$ 0PRNT$"YES":A1C:"*";:::1(2DN):">PATHNAME: ";F$RCH"( "FOR A SPECIFIC FILE? (Y/N) ";E A$:A$"Y"A$"N"400Y A$:A$"N"460v " NAME OF FILE? ";SF$ (SF$,1)"/"SF$(SF$,(SF$)1) (SF$,1)"/"SF$(SF$,(SF$)1) (SF$)15SF$SF$" ":450 :"DO YOU WANT TO DIRECTE NAME OF THE"5 ""VOLUME YOU WANT TO CATALOG? ";V$Q ,(V$,1)"/"V$"/"V$s 6(V$,1)"/"V$(V$,(V$)1)y @ J"DO YOU WANT 80-COLUMN OUTPUT? (Y/N) "; TA$:C63:A$"N"C30 ^A$"Y"A$"N"340 hA$ r |"DO YOU WANT TO SEA ! 10:16::"WARNING":T 12:"THIS PROGRAM DOES NOT RUN UNDER DOS 3.3"w 14:"HIT TO CONTINUE 16:"HIT TO QUIT" 20:KL$:KL$(13)250 KL$(27)960 220 5:16:"OPTIONS" 9 "WHAT IS TH ** < * INCIDER MAGAZINE *E = * *` > ********************f d n7:17::"PROCAT": x11:19:"BY" 13:12:"VIKTOR RUBENFELD" 20:13:"COPYRIGHT 1985" 22:12:"INCIDER MAGAZINE" RR12000:6 2 ********************73 * *R4 * PROCAT *m5 * *6 * BY *7 * *8 * VIKTOR RUBENFELD *9 * *: * COPYRIGHT 1985 * ; *       L<Bύ>=i?iC , ! "# X mʎ X  ʎ! X !!ʎ" X# !! "## X2 ?` ` ` J\ ƕ<Bύ>Ci=i? ,i  LB% "$ ?` - - ?` 9ɪ Lu5L׺ Jm(ʭ80m80 ƕm%2i   RRY"" ^20:13:"COPYRIGHT 1985"B h22:12:"INCIDER MAGAZINE"S rRR12000:Y |R8033: PUSH ::: ( I138 T11000:K 37888:: POP] :T11000:c  11:"***END OF DEMO*** ,: 69:13::"DOING WINDOWS": @11:6:"(A DEMONSTRATION OF PORTAL)" J14:18:"BY" T16:14:"BRIAN PA ** < * INCIDER MAGAZINE *E = * *` > ********************i F300 d34815:768,0:(4);"BLOAD PORTAL"::: n0,40,10,10,15,20,0,23,4,27,3,14 x::I13 MEMLOC769772 WSIZE:MEMLOC,WSIZE :3Z2 ********************73 * *R4 * DOING WINDOWS *m5 * *6 * BY *7 * *8 * BRIAN PARRY *9 * *: * COPYRIGHT 1985 * ; *  /"(BASE54)254ĹBASE54,(BASE54)15,I635,24:34,15:@20:"NEW AGE (MIN 18, MAX 65) ";AN$:AN((AN$))JAN18AN654160TNG(AN4)^NG4NG1ANNGNG1:4190hBASE39,NG:BASE38,(AN(NG4NG1))52:::3000rASE136,K10eBASE138,255:BASE139,255:BASE140,255:K17:MAPBASE144(K2):MAP,9::BASE140,255:BASE141,255:BASE142,255:BASE143,255:BASE144,7:K17:MAPBASE158(K2):MAP,9::(BASE126)254ĹBASE126,(BASE126)105:BASEK,0::YMAPBASE64BASE1208:MAP,1::K811:(BASE58(8K))0Ă:K0jBASE58,K:MAPBASE62BASE1188:MAP,0:MAP2,0::K(BASE132):K254ĹBASE130,K1:BASE132,K1 K(BASE136):K245ĹBASE134,K10:B:3010+ B13Ĺ47092,2:768:47092,1:70@& B65B76ī3010K0 BB64: B4000,4010,4020,4040,4050,4070,4090,4100,4110,4130,4150,4210:100:1000:3010 MAKE CHANGESBASE40,0:BASE41,0:BASE32,0:K2002 100:1000:2000:35,15; 15:19:KB,0:B$:B(B$)I B27ī70X B505000g B516000w B163100 14:1:" ->START PRINTER AND PRESS ANY KEY<- ";:A$::(4)"PR#1" 1110::1010:SC3ĺ:6320:1110 :(4)"PR#0" 1000,"D-UNCURSE H-P SPELLS L-QUALITIES"Z" <2> P.2,REMAKE <3> P.3, TRADING POST" " ROSTER, CHANGES CANCELLED"" ROSTER, CHANGES PERMANENT" " CTRL-P PRINT-OUT OF CHARACTER":   MAIN PROGRAM  );"/";P(4);"/";P(5);"/";P(6);"/";P(7)<L:"LOCATION: ";L$RVK139:"*";::X^p MAIN MENUv|"A-LIFE E-LEVEL+1 I-EXPERIENCE""B-CASTLE F-HIT POINTS J-GOLD""C-IDENTIFY G-M SPELLS K-AGE"LEVEL ";LE;6);"AGE ";OLX$" AGILITY ";AG10);AG;5);"HITS ";PH;"/";TH;2);"AC ";AC." LUCK ";LU10);LU;3);"STATUS ";S$(S):8" MAGE ";M(1);"/";M(2);"/";M(3);"/";M(4);"/";M(5);"/";M(6);"/";M(7)%B" PRIEST ";P(1);"/";P(2);"/";P(3PRINT CHARACTER!g(N$(A),13);" ";O$(O);" ";R$(R);" ";C$(C):"PASSWORD==>";P$:" STRENGTH ";ST10);ST;5);"GOLD ";CASH" I Q ";IQ10);IQ;6);"EXP ";EP" PIETY ";PI10);PI" VITALITY ";VI10);VI;4);"1(E2256)((E3(E4256))10000) LE(BASE132)((BASE133)256):PH(BASE134):TH(BASE136):AC(BASE176):(BASE177)0AC(AC256) K17:MAPBASE144(2K):M(K)(MAP): "K17:MAPBASE158(2K):P(K)(MAP): ,   VIC3(C332)324 AG(C332)(C4(C44)4)8P LU(C44)32(C4128) G1(BASE52):G2(BASE53):G3(BASE54):G4(BASE55) CASHG1(G2256)((G3(G4256))10000) E1(BASE124):E2(BASE125):E3(BASE126):E4(BASE127) EPE)9 R(BASE34):C(BASE36):S(BASE40):O(BASE42)n Y1(BASE38):Y2(BASE39):OL((Y1Y2256)52) C1(BASE44):C2(BASE45):C3(BASE46):C4(BASE47) STC1(C132)32 IQ(C132)(C2(C24)4)8 PI(C24)32(C2128) _ `# a ANALYZE CHARACTER) b/ cU dTN(BASE):KTN115:BASEK,0: nTP(BASE16):K(16TP1)31:BASEK,0: xP$"":MAPBASE17BASE31:P$P$((MAP)): L$((BASE200))"-EAST "((BASE202))"-NORTH LEVEL-"((BASE204) * * * COPYRIGHT 1984 * * * * INCIDER MAGAZINE * * * ************************ <8000:TITLE PAGE F7000:ROSTER P3000:MAIN PROGRAM -2 ************************ * * * WIZFIX * * * * BY * * * * KERRY J. LANZ * 3                   (34);" ";(34);"= SECTOR AVAILABLE": BILABLE"_N22:1:(34);"*";(34);"= SECTOR USED";X20);(34);" ";(34);"= SECTOR AVAILABLE": B2,(48I7(I9));:38:(48I7(I9))O&::20:13:"^TRACK NUMBERS^"s0A$"SECTOR NO.":I110:5I:1:(A$,I,1);:39:(A$,I,1);:D21:5:"SECTORS USED";7);"SECTORS AVAILABLE"N22:1:(34);"*";(34);"= SECTOR USED";&X20);6,1,0,17,0,251,183,16,39,0,0,1,0,0,96,1/ I DRAW MAIN SCREEN P :15:"SECTOR MAP"::2:2:" ":19:2:" ":I034HI16(I16):H$(48H7(H9))2:3I:H$;:19:3I:H$;::2:38:" ":19:38:" "I1501:18I::"ANTONIO SILVESTRI"::4:"COPYRIGHT 1985, INCIDER MAGAZINE"nh20:3:"INSERT A DOS 3.3 DISK INTO DRIVE."r7:"PRESS ANY KEY TO BEGIN. ";|I768774:H:I,H:I4708047096:H:I,H:KB,0:K$:768:32,227,3,32,217,3,96'1,9(X3)(X2)))64A& HI,A::A$:9 (4);"PR#0":? )R * INITIALIZEX +b ,::m 610000 @BG65536:KB16368 J:5:11:17)::11:" ============= " T11:" SECTOR MAPPER ":11:" ============= ":11:17):>^::11$F (13);(4);"PR#1":(9);"50N":LOC(V)128V984((V1)8)896u H(106)256(105)(108)256(107)17 (H)65(H1)128ĹH2,40:H3,16:H4,39:H10000 :V122:HLOC(V):I039 A(HI):HI,32:X((A32)64):10000I,(3(X:TS460);TS550);560TS:23:1` "SEND THIS MAP TO YOUR PRINTER? (Y/N) ";:K$:K$"Y"İ200 23:1:"MAP ANOTHER DISK? (Y/N) ";:868:K$:K$"Y"ġ: PRINT MAP  23:1:">TURN ON THE PRINTER AND PRESS A KEY<";:KB,0:KI2301:34,I::K120:::& a7 b DRAW MAP= cj dI034:TB(100564I)256(100574I) nJ015:3J:3I::" ";: x3J:3I:TB2TB:(3210(TBBG));: TSTS(TBBG):TBTBBG(TBBG)::! 21:1:TS100);TS10)TS;:20 * * * COPYRIGHT 1985 * * * * INCIDER MAGAZINE * * * ************************ F300:TITLE PAGE P500:DRAW SCREEN Z100:DRAW MAP _( 2 ************************ * * * SECTOR MAPPER * * * * BY * * * * ANTONIO C. SILVESTRI * 3      "READING TRACK #";(24590);", SECTOR ";K:24576:23:868:(24599)64(24599)128Ģ23:"CAN'T READ DISK":24590,255: 680::EXIT FROM SECTOR SET MAIN MENU::670v:" 1. READ SECTOR FROM DISK"::" ;K$:K(K$):K$""Ģ23:1:868:4 (K)K$3000G K0K343000c 24590,K:TRACK TO READ 23:1:"WHICH SECTOR? (0-15) ";K$:K(K$):K$""Ĺ24590,255:23:1:868: (K)K$3040 K0K153040 24591,K:SECTOR TO READx 23:RUCTIONSg(59)256(58)BUFFER256Ģ24:1:" $FF ENDS THE BUFFER. ANY KEY RETURNS. ";:KB,0:K$:24:20:KB,0:K$:K$" "1160:EXIT DISASSEMBLER   SET TRACK AND SECTOR  ! 23:1:868:"WHICH TRACK? (0-34) "P128:D2Ģ24:23::"";:0`100:1040BjDISASSEMBLERt:::15);"CIDER ZAP";15)::TM,1:24:" GO ON ? CANCELS ";:BM,23:~58,BUFFER(BUFFER256)256:59,(BUFFER256):415:RM,2::RM,40:LIST 20 INSTC A)SL P)AGE Q)UIT";::KB,0:A$:A$"P"PP:1010IA$"C"D2:1020_$A$"H"D3:1020u.A$"D"D1:10208A$"Q"ı:EXIT THE EDIT MODEBA$"A"İ1140:1010LA$"E"1040!V24:1::" <- -> Q Z ";8);"BYTE: ";::BYTE:PRINT BUFFER CONTENTS#)? EDIT A SECTOREKfP0:START ON PAGE ONE|600:DRAW SCREENV015:V3:4(1(D1)):D610,620,660:" "::READ BUFFER680:TRACK & SECTOR LINE324:1::" E)DIT C)HAR H)EX D)E;:::PRINT OUT ONE ROW IN HEX:1:9:" ";:K114:"*";::" ":9:" * CIDER ZAP * ":9:" ";:K114:"*";::" ":TM,3:4:::PRINT HEADING(24590)255Ģ23:1:6);"TRACK==> ";(24590);" SECTOR==> ";(24591);:868:SlH07:K(BUFFERHV8(128P)):" ";:K32(K127K160)ĺ"^";(K64);:650uvK32K160K255ĺ"::";:650" ";(K);::PRINT OUT ONE ROW IN ASCIIH07:K(BUFFERHV8(128P)):" ";(HX$,(K16)1,1);(HX$,K((K16)16)1,1)******* X:::" 0 1 2 3 4 5 6 7 ";:39:" ";:X015:YX8(128P):Y100);Y10);Y;:39:" ";::" ";:39:" ";:40)::bH07:K(BUFFERHV8(128P)):" ";K100);K10);K;:::PRINT OUT ONE ROW IN DECIMAL * * * MICHAEL PETERSEN *  * * * COPYRIGHT 1985 * * * * INCIDER MAGAZINE * * * ****************:K116:RK1:K$(HX$,K,1)K16B :BUFFERBYTE,(H16)R::9  *********************** * * * CIDER ZAP * * * * BY * V256A$A$K$:KV:190A Y(A$):BUFFERBYTE,Y:30:20::120h K27ľK$:BUFFERBYTE,(K$)128:} BUFFERBYTE,K: K48K70(K57K65)ı :K$;:K116:RK1:K$(HX$,K,1)K16 :HR:K$:K(K$):K48K70(K57K65)ı" :K$ K21B1(8(BYTE126(128P))):90:100X K8B1(8(BYTE(128P)1)):90:100 K81B8(128(BYTE8(128P))):90:100 D170,210,230:100 K48K57ı A$K$:KK48: K100);K10);K:20:K$:K(K$):V(A$K$):K47K58TE;::c P(HX$,(Y16)1,1);(HX$,Y((Y16)16)1,1):24:36::BYTE100);BYTE10);BYTE;:: ZD30,40,80:BYTEBYTEB: d20:Y(BUFFERBYTE)::D30,40,80:20 nKB,0:K$:K(K$):K13İ90: xK90B8(128(BYTE119(128P))):90:100,! 9000:4000BXBYTE(128P):(X8)3:64(X(X8)8):Y100);Y10);Y:24:36::BYTE100);BYTE10);BYTE;::(Y32(Y127Y160)ĺ"^";(Y64):702Y22Y160Y255ĺ"::":70<" ";(Y) F24:36::BYTE100);BYTE10);BY             z #?????   ̠ Ԡ  Ҡ!*"ӠҮР#ҮҠ ؠ0 ǮӠ ͮǠͮȠͮҠϮȠϮӠϮʠ ˮˠϮՠ ҮҠɮ#ϮȠ ϮӠԠͮҠR:1:7);:1:C$;$:(4)C$N$*06I INITIALIZEOUSC(H)(1024128(V1)984((V1)8)H1)SP$" ":20 SPACES ' ' ' TITLE FOR MENU''< << HOT CIDER >> >E3791:(SC(E)128)" "ĂEElREAD NAME IN ONE CHAR AT A TIMEXvN$""::I8EpN$N$(SC(I)128)R:8:N$: CLEAR SCREEN AND RUN CHOICER1āI1R1:I:868:R:38:" ":3 SPACESIR124:I:868:ڀ" H$"A"H$(BT("A"))420< H$;:R(H$)("A")Ta  FIND FILE TYPE OF YOUR CHOICEz VR:F$(SC(2)128) C$"RUN":F$"B"C$"BRUN" F$"T"C$"EXEC" N GET NAME OF YOUR CHOICE XVR:E3791:(SC(E)128)" "ĂE bVR:123:I:38:" ";(A$,I,1);" ";::D " GIVE EACH FILE A LETTERQ ,I0BTf 6IT:3:"..";: @(I("A"));::".." J  GET YOUR CHOICE 24:B23ĢB2 "PICK ONE (OR ";::"X";::" TO EXIT) ->"; H$:H$"X"ĺ"EXIT";:23: FIND FILES ON SCREEN% B(37):T5I B23āT15:VT:SC(5)160ĂT~ WRITE TITLE (A$) FROM LAST LINE OF THIS PROGRAM A$ T2Ģ1:35,T1:958:35,24:T2:21((A$)2)::A$:$ T2A$(A$,23):A$(SP$,1,((23(A$))2))A$SP$::IILES ON A DOS 3.3 DISK AND ALLOWS SINGLE-KEY SELECTION f Z PUT CATALOG ON SCREENr d:1000 n44452,255:44513,67:DON'T WAIT FOR KEYPRESS; CATALOG ONLY LOCKED FILES x(4)"CATALOG" 44452,22:44513,2:RESTORE POKES * * * COPYRIGHT 1985 * * * * INCIDER MAGAZINE * * * ************************ H 4 GIVES MENU OF ALL LOCKED F2 ************************ * * * HELLO MENU * * * * BY * * * 3 * PAUL VAN BLOEM *      E0ĺB$;E1ĺF$;!:5X1H:B$;::=:CNY1W`X1H:B$;:{Z06:X1H:B$;::X1H:B$;::FF$(4);"PR#0":5:"WOULD YOU LIKE":7:"TO MAKE ANOTHER POSTER (Y/N)? ";:AN$:AN$"Y"1" "M(M$)A1M&Y1W8X1H:B$;:S"Z06:X1H:B$;::g,X1H:B$;::m6@Z((M$,A,1))32:Z0Z62Z0JB04TY1W^DL(Z,B)hX1H:B$;:rC601:E0|D2CE1:DD(2C)X1H 21250!<FF$(12): FORM FEEDUF:5:"MAKE SURE YOUR PRINTER IS TURNED ON AND"P7:"THAT THE PAPER IS POSITIONED CORRECTLY."Z15:5:"HIT ANY KEY TO BEGIN PRINTING ";:AN$:(4);"PR#";SLOT%F$"*"B$" ":NI$"I"B$F$:F$RIAGE RETURN"M$""&10:"> ";ILE$:(LE$)32(LE$)941270cLE$;:M$M$LE$:1250xLE$(13)1250:5:"YOUR MESSAGE READS: ":7:M$ :"IS THIS OK (Y/N)? ";:AN$:AN$"N"1200AN$"Y"1280(LE$(13)1340J14:3:"THE WIDTH OF THE LETTERS (1-8) ";:WI$:WI$"1"WI$"8"1170WW(WI$)16:3:"NORMAL OR INVERSE PRINTING (N/I)? ";:NI$:NI$"N"NI$"I"1190RR1800::5:"TYPE IN THE MESSAGE FOR THE POSTER" 7:"FOLLOWED BY A CAR SLOT (OR PORT)`V3:"IS YOUR PRINTER HOOKED UP TO (1-7)? ";:SLOT$:SLOT$"1"SLOT$"7"1090s`SLOT%(SLOT$)j:5:14::"OPTIONS MENU":t10:"SELECT: "~12:3:"THE HEIGHT OF THE LETTERS (1-8) ";:HI$:HI$"1"HI$"8"1150H(HI$):6:"JEFFERY MILLS AND JOHN FEDAKS20:3:"COPYRIGHT 1984 BY INCIDER MAGAZINE"v22:10:"ALL RIGHTS RESERVED"$RR12000:RR:.:10:14:"INITIALIZING"::8A062:B04:L(A,B)::B:5:13::"PRINTER SET-UP":L9:3::"WHAT 63,64,48,64,63: W/ 99,20,8,20,99: XE 3,4,120,4,3: Y^ 97,81,73,69,67: Zy 127,127,65,65,65: [ 2,4,8,16,32: { 65,65,65,127,127: ] 4,2,1,2,4: ^10:13::"POSTER PRINTER":13:19:"BY""15,64,64: L#0 127,2,12,2,127: M<: 127,4,8,16,127: NUD 62,65,65,65,62: OkN 127,9,9,9,6: PX 62,65,81,62,64: Qb 127,9,25,41,70: Rl 38,73,73,73,50: Sv 1,1,127,1,1: T 63,64,64,64,63: U 31,32,64,32,31: V73,73,73,54: B(  62,65,65,65,34: CB  127,65,65,65,62: D\  127,73,73,65,65: Er  127,9,9,1,1: F  62,65,73,73,122: G  127,8,8,8,127: H  65,65,127,65,65: I  48,64,64,64,63: J  127,8,20,34,65: K & 127,64,6497,17,9,7: 7& ^ 54,73,73,73,54: 8> h 6,73,73,73,62: 9S r 0,0,54,0,0: :h | 0,0,64,52,0:;  8,20,34,65,0: <  20,20,20,20,20: =  0,65,34,20,8: >  2,1,81,9,6: ?  62,65,93,85,30: @  126,9,9,9,126: A  127,4,48,0: , 0,8,8,8,0: -3 0,0,64,0,0: .I  32,16,8,4,2: /b  62,81,73,69,62: 0z  0,66,127,64,0: 1 " 98,81,73,73,70: 2 , 34,65,73,73,54: 3 6 24,20,18,127,16: 4 @ 71,69,69,69,57:5 J 62,73,73,73,48: 6 T 1,,0,0: ! 0,3,0,3,0: "7 20,127,20,127,20: #Q 36,42,127,42,18: $j 35,19,8,100,98: % 54,73,86,32,80: & 0,0,3,0,0: ' 0,28,34,65,0: ( 0,65,34,28,0: ) 34,20,127,20,34: * 8,8,62,8,8: + 0,0,6 ** < * JOHN FEDAK *E = * *` > * COPYRIGHT 1984 *{ ? * * @ * INCIDER MAGAZINE * A * * B ******************** dL(62,4) n 0,0,0,0,0: (SPACE) x 0,0,95!2 ********************73 * *R4 * POSTER PRINTER *m5 * *6 * BY *7 * *8 * JEFFERY MILLS *9 * *: * AND * ; *       ** Y1YYY2Y$ J1YMAX: A$(J,X)A$2410C YYJK$ YJT. 160^8 2:1B "RETURN TO CONTINUE, ESC TO END";L B$:(1);V B$(27)670` B$(13)2380j Jt YYY1~ YY2 3060 A$(A$,(A$)2) X2XX$(Y,X),I,1)\2080&fI1A$"":0pA$I$6zRA$(Y,X)"@"A$(Y,X)""eXXMAXXMAXXxYYMAXYMAXY~2:1:868"SEARCH STRING-";A$B$(A$,2)B$"/G"2450B$"/S"2680B$"/R"2900** EXACT MATCHY,X)BL$,CW(X));2I2:I$A$:1:A$;:2030G(I$)0A$"":OA$A$(8)L(I$):I$(" "I$,2,L1):1:I$;:868:2020A$(21)2130 A$(13)2150(A$)312030 I$I$A$*14I$;>II1H2030 RA$(AI T3AXXMT5,&X1018F0YYX170X119:1870M:TgD(A$(YYX1,A),CW(A))oNX1}XTTCW(A)bAlvCW(0)0XXXCOL3:1970COL3X2XXX1COLCOLCW(X2)X2Y5YYCOL(A$(MTFX1:FX166FX#@FXXXMT?JT$(H$(FX)BL$,CW(FX))HTT$;P^FXZh868ar5h|1yFXYYYY18FX70ĝ:" ";:1710FX;FX10ĺ" ";FX** CLEAR SHEET **I524I3868160 <F120P"Z730)d20n1>xA$(Y,X);E2L1V2010eA$""670tA$(Y,X)A$~21806701:25:86841" ";MT10XX1XX1I0FXXX10"IICW(FX) ,I37 j120t~7300CD21170,220,12709120CXX1\XXXĞ:120::730hXXXX1X0X1:XX1:1230160120730120YY1 YYYĞ:120::730YYYY1YYY(Y0Y1:YY12A$ 86019100CD21010,1150,1080:XX1WX10X10::120::730tXMTXXXX1:160:1030z120$.7308YY1BY70Y70:1120LY18YYX31:YYYY1:YYY18:Y70Y70:YY51VX31İ160:X30`1  1)*(H$(X),1)Y;25)"HELP=?"0427>1EHA$(Y,X);OR868W\A$cfA(A$)rpA635360zA473090A431380A33İ250:1910:160:680A21990A81160A32720A382220A34ľA$:1380I110 &CW(I)9 0I% :I1365 DBL$BL$" "< NIH XI110^ bH$(I)(64I)"."e lIp vCD1:y 160 X1 Y1   120  730 CDCD1 1 38 CD2760,3670,780 "-"; 790 "!";^J110 hA$A$(C,J), rA$(C,J)A$(D,J); |A$(D,J)A$B JL CCBY C0320` Ii 280 END OF SUBROUTINE 5550:(4);"MAXFILES 1"   D$(4) A$(70,10),CW(10),H$(10) YY1 XMAX1 YMAX1 XX1 MT:5:X1018:YYX170X119:240@ T:(A$(YYX1,A),CW(A))T :TTCW(A)::r 1:25::"SORTING"::B1| B2B BYMAX260 B(B2) "B0ı ,I1YMAXB 6CI @DCB JA$(D,X)""A$(D,X)(1) TA$(C,X)A$(D,X)420 868:) 4:1::" ";:MT10:XX1XX1Z I0:FXXX10:IICW(FX):I37MTFX1:FX16 :FXXXMT:T$(H$(FX)BL$,CW(FX)):T$;::868 5:1:FXYYYY18:FX70ĝ:" ";:210 FX;:FX10ĺ" "; :::I524:I:3:868:# T3:AXX ** < * INCIDER MAGAZINE *E = * *` > ********************k d5620t n450 xCW(0)0:XXXCOL3:140 COL3:X2XXX1:COLCOLCW(X2): Y5YY:COL:(A$(Y,X)BL$,CW(X));: 1:1:868:2:868:3:_!2 ********************73 * *R4 * VISI DATA *m5 * *6 * BY *7 * *8 * LEE SWOBODA *9 * *: * COPYRIGHT 1984 * ; *             ,208,245,206,81,3,16,222,206,80,3,16,209,96,201,5,16,6,24,105,2,76,15s 3,141,82,3,173,48,192,206,82,3,238,823,206,82,3,208,245,206,81,3,16,222,206,80,3,16,209,96KB49168:KEYBOARD3:2:09J153:N:767J,N:n20:10::" PRESS ANY KEY TO BEGIN.";:S$:::169,10,141,80,3,169,96,141,81,3,32,174239,165,159,201,5,16,6,24,105,2,76,15 3,141,82,3,173,48,192,206,82,3,238,82+3,206,82,318:"GOODBYE":15:6 INITIALIZATION<H:::f(4);"BLOAD DINO.SHAPES"y233,64:232,05:15:"DINO MATH"::19:"BY":12:"MICHAEL A. SEEDS"::18:"FROM":12:"INCIDER MAGAZINE"Z49200:SOUND15:"TO PRESS"3:13:"================="L14);"COUNT 0"f:15);"ADD 1":13);"SUBTRACT 2":15);"MIX 3":15);"END 4"22:20:KB,0:S$:S$"0"S$"4"4090F(S$)("0"):F4ė:10:# 1:KB,0:A$::A$(27)ġ:200G S(A$):SANĢ21:25:S:768:a F0Ğ:2130::2130 J14:N(Z)(Z)(Z)(Z)::3010   MAIN MENU  : 3:" WHAT WOULD YOU LIKE THE DINOSAURS"::" TO HELP YOU DO?":: SHX1(J),40:3 F0Ģ21:15:"HOW MANY? ":> J1BW *X2(J)X2(1)(J1)SBk 4SHX2(J),120: >SS7:S$" + "SS6 HSS131,71 R21:15:A;S$;B;" = ": GET ANSWER 23:23:" PRESS TO END THIS PROBLEM." ANAB:S$" + "& $AN1AN91000, .2 K  DRAW THE PROBLEMQ q SA40(7A)2:SB40(7B)2 X1(1)140SA(A2):X2(1)140SB(B2) (1).5X1(1)X1(1)1:X2(1)X2(1)1 SH((1)51) ::J1A X1(J)X1(1)(J1)SALEM 2000:DRAW PROBLEM1 3000:GET ANSWERF X300:PLAY AGAINL g  CREATE THE PROBLEMm  A((1)71):ANA:F0ı B((1)71) F1ANAB:S$" + ":1060 F2ANAB:S$" - ":1060 (1).5ANAB:S$" - ":1060 * * * COPYRIGHT 1984 * * * * INCIDER MAGAZINE * * * ************************ d5000:INITIALIZE 4000:MAIN MENU ,1000:CREATE PROB, 2 ************************ * * * DINO MATH * * * * BY * * * * MICHAEL A. SEEDS * 3      H)-->??H1 066 $$v H ,.,.,. 66.$$2%H)-->??H1 066 $$v H ,.,.,.$66$`2! ! 6v $ d26$d6v$d2 $6 $`26v$-$5.5?6'?6'?6>$W 8$$$665$<,56-%$$$566. $6.$6%d6%$066 6%%$6!$66%,6%$2v$ 6.5--$66%,6! 6%$$ 666 d6.$,6.$56%,.,. %'?5$ 6v$$,66.$$6v$$! 666.$$$d666!$ ĩ66%$$566!$6!5$H ,.,.,.$$2%  (4);"EXEC REM.LOADER" ŠŠԠҤΠͮǢ"ESC = THIS SCREEN"4t1820:16304,0:16297,0:~::"A = DOT":"B = 2X2 SQUARE C = 3X3 SQUARE":"D = 4X4 SQUARE E = 5X5 SQUARE":"F = 6X6 SQUARE G = 7X7 SQUARE"`"H = HORIZONTAL LINE":"I = VERTICAL LINE":"J = N.E. DIAGONAL":"K = N.W.= BEGIN LINE OR PLOT POINT":6"@ = AREA ERASE"::U$": = DRAW/XDRAW TOGGLE":q."0-7 = CHOOSE COLOR":8"A-Z = CHOOSE BRUSH SHAPE":B"/ = EXAMINE BRUSH SHAPES":L"BUTTON #0 = PAINT"V`"RETURN = GO BACK TO MAIN MENU":jY%:OX%X%:@OXOX%:XI(X%OX%)(((OY%Y%)3)((OY%Y%)0))C:OYOY%Y%3(Y%OY%)3(Y%OY%):OX,OY:OXOXXI::980:16::"COMMNADS"::"- = LINE FROM LAST POINT PLOTTED":"; = DOTTED LINE FROM LAST POINT PLOTTED":". Y%9(OX%X%)(OY%Y%)ĭC3C7ēOX%1,OY%X%1,Y%QOY%Y%:OX%X%:HC:jHCPK176:CHC:HC:(Y%OY%)(X%OX%)990OYOY%:YI(Y%OY%)(((OX%X%)3)((OX%X%)0))C:OXOX%X%3(X%OX%)3(X%OX%):OX,OY:OYOYYI: OY%184940>PK193ı#HPK218ı:RDPK192:PK192ı@\}f:16303,0:16298,0:DRDR:X$" DRAW":DR1X$"XDRAW"p9:"YOU'RE NOW IN ";::X$::" MODE.":1820:16304,0:16297,0:z:1010X%,Y%:OX%X%:OY%Y%:C:OX%,OY%X%,DX%,Y%:670DR0730:DX%,Y%:OX%X%:OY%Y%:WDX%,Y%:OX%X%:OY%Y%:oCHC:PK141ġ:370PK192190PK155890PK175İ1150 PK174D2:900PK173D2:910 PK186870*PK187D2:9504PK175PKE NAME OF THE"="FILE YOU WANT DELETED: ";F$:(F$)0520]D$(4):D$"DELETE";F$:370y16304,0:16297,0:D2X%1.094(0):Y%.749(1)DX%,Y%:PK(16384):PK127Ĺ16368,0:DX%,Y%:740:670(16287)127ĕDX%,Y%:710:670016:5:"<4> DELETE A PICTURE"H:18:5:"<5> RETURN TO MAIN MENU"D21:1:"ENTER YOUR SELECTION: ";:AN$:AN$"1"AN$"5"580NAN$XQ(AN$)bQ1270,1580,1510,620,370l:"HIT TO GO BACK TO THE DISK MENU"v5:"ENTER TH(13):1002&AN$"5"ĺD$;"PR#6"@(AN$)67GZ1:1010MQ(AN$)^Q1Q9370wQ660,1280,520,1710370:5:16::"DISK MENU":10:5:"<1> CATALOG"12:5:"<2> LOAD A PICTURE"&14:5:"<3> SAVE A PICTURE"!":::232,0:233,87 |C:64:S:54915:FF1:FX0:FV0B 1850m 10:5:"<1> PAINT";:24:"<3> DISK" 12:5:"<2> LABEL";:24:"<4> CLEAR" 14:15:"<5> QUIT" 20:1::"ENTER YOUR SELECTION: ";:AN$:AN$"1"AN$"5"430 AN$O0O8:OO,O9OO,O1::C:0 (A$)0A$" "ı7 3Z "AA(A$)31:AA4UPUP:350} ,UP0AA33AA60JAA32:320 6JAA:330 @AA1AA96180 JFX0ĔJX,Y:C: TJX,Y:C: ^FV1YY7: hXX7: r::5:16::"MAIN MENUQW150::2X%,Y%? PK(16384):PK127Ĺ16368,0:"":230U OO(16336):200 PX%1.094(0):PY%.749(1):2PX%,PY%:QW150::2PX%,PY% PK(16384):PK127Ĺ16368,0:"":260 OO(16336):230 0:O8PX%:O1PY%:O0X%:O9Y%:OOA2560" 370 1810: "":::"MOVE CURSOR TO UPPER LEFT CORNER OF THE ERASE BLOCK & HIT SPACE. THEN MOVE THE CURSOR TO THE LOWER RIGHT CORNER OF THE ERASE BLOCK & HIT SPACE.":1820:16304,0:16297,0 X%1.094(0):Y%.749(1):2X%,Y%: ** < * INCIDER MAGAZINE *E = * *` > ********************n d16302,0y n1850 xHC3:0:1:C3:3:230,32:62450:S1 GZ1::1210 D$(4):D$"BLOAD REM.BRUSH":232,0:233,8 D$"BLOAD REM.CHAR,l2 ********************73 * *R4 * REMBRANDT *m5 * *6 * BY *7 * *8 * DON FUDGE *9 * *: * COPYRIGHT 1984 * ; *         $N@M MI M MQM*5,U`i`ii8`` Mi 1:LLM;5?$- `L۳VMi Mi UMi - - -^??.m- -??)HN ێQM MQha ߚ#Ӛ1D68;AJXk'dr%?<6-$e?76%5%$%?6-%$??66--%?6-%$??66--%$$???%?6-%$??66--%$$???666-----$$ %'775-%?6.,. ?6-%''?777655-%%%?>><<,,,.!v- ?6- I?6v-e $8?6.---$?g $$ -- )56.8 -166.pe$I9?6--I 666$ u)u>?6-Iu-6) 5?$166.`u66Iw6III--??  - -6?$$6%66M!?d )-;?I1?I ?6v- ?)-56 -?v- $$ -6?@-#~ +7DHPXfnrw|!*8GUamz&0:FR^iv}$0:FS^jqy'%'%'-e%'$u gee ?fee?$ . du    ST) 3";:30:KB,0:A$* A$(13)A$"3"B A$"1"A$"6"3000` 8,25(A$)75:SET SPEED 768,193:769,218:770,136:771,149:786,160:787,141:DEFAULT CONTROLS  :21:"CHANGE CONTROLS? (Y/N) N";:24:KB,0:A$:A$"Y"İ50000 :21:"STA OPENING MENUs:21:8);" INSTRUCTIONS":8);" PLAY GAME":10);" FOR NEW MAZE"1:KB,0:A$ A$(13)ıA$"N"İ500 A$" "İ4000*2040 SET GAME VALUES  :21:"DIFFICULTY 1-6 (6 = EASIEKB,0+WA((1)21):(16384)12811703:L SET GAME VALUES `500:DRAW MAZE:21:1::": :":" BONGO'S BASH ":": :"::21:18:"BY JOHN & RALPH ROMERO"23:21::" PRESS ANY KEY ";::KB,0:A$LOCCO,255:COCO1:CO2561110M`BYTE0:1150:BYTE40:1150:BYTE80:1150rjLOCCO,255:COCO1:CO5121130t20525,1:1160~I03:J01:K07:LOCCO,BYTE:COCO1::BYTEBYTE128::BYTEBYTE256::22:9:"PRESS ANY KEY TO BEGIN ";::13:"INCIDER MAGAZINE">22:13::" GETTING READY ":].(4);"BLOAD BONGO.SHAPES"y8(4);"BLOAD BONGO.OBJ"B CREATE LOOKUP TABLELLOC24576:CO0:H02:BYTE31:I03:BYTEBYTE1:J01:K07:LOCCO,BYTE(4K):COCO1:::: V255,72255,82:LV9ıSN233,130233,147:234,130234,147:I130148:I,65I,87:qXI6785:128,I150,I:: INITIALIZE ::T6:L7:SOUND32771:KB16368:6:14:14)::14:" BONGO'S BASH "14:14)::::19:"FROM"WA2ēI,JI,JWL:I1,JI1,JWL<T,J:L,6:SOUND::&0,4255,4255,1490,1490,4:1,5254,5254,1481,1481,5:(228)128Ē0:57004:130,4148,4:130,5148,5:0,720,82:1,721,82:130,148148,148:130,149148,149D254,72254,82:BONGO! ";H|I13:J110:K15:T,J:L,K:SOUND:::T,I3:SOUND:dK11000::::KB,0:w DRAW MAZE }WL21:((1)71):(228)128510IWL2255WLWL:JWL2150WLWL:WA((1)21):WA1ēI,JIWL,J:I,J1IWL,J1#O! "::500:100!@ YOU LOSEHJI125510:T,I:L,256I:SOUND:T:21:"BYE BYE BONGO! YOU'RE A DEAD GORILLA!":::" HIT Q TO QUIT, ANY OTHER KEY TO PLAY ";:^KB,0:A$:A$"Q"İ500:80h YOU QUIT r:21:8:"SEE YOU NEXT TIME AME IN!":I110:T,I25:L,50:SOUND::I11500::23:1:868a KB,0:32768:PLAY ONE ROUND I(9):I1330:YOU LOSE I3370:YOU QUIT " YOU WIN ,I110:J2011:T,IJ:L,J:SOUND::6::21:5:" NEW MAZE...GOOD LUCK BONG(28712I)Ĺ28702I,(((1)10)3)4:Y((1)41):28712I,Y2130a :::255,7:7 COCONUTS 21:1:"BONGOS :";:20:"TREES LEFT:":"SCORE :";:20:"MAZE LEVEL:" INCREASE DIFFICULTY@ LV(LV5)50Ģ23:1:"WATCH OUT! ANOTHER ROBOT C55:20500I,7:7 I17:20480I,0:IROĹ20480I,1= U RANDOM COCONUTS I17:28722I,1:28702I,(((1)10)3)4:Y((1)41):28712I,Y2130: :21:" GET READY " H12:I27:J1I1D (28702J)(28702I)(28712J)3000:RE-SET GAME( c PLAY ONE GAME K d249,1:250,135:BONGO'S START nLVLV1:LV(LV5)50RO8RORO1:251,(251)1:EXTRA BONGO AND ROBOT x RANDOM ROBOTS I17:X((1)10)34:Y((1)41):28672I,X:28682I,Y2130:20490I,2 * * * COPYRIGHT 1985 * * * * INCIDER MAGAZINE * * * ************************ <17000 F1000:INITIALIZE P2000:OPENING SCREENS Z2 ************************ * * * BONGO'S BASH * * * * BY * * * * JOHN & RALPH ROMERO * 3            P ȒԪ P ؊֪؊@/  PpP`T U*Q"I$ 腸 D"ѪU(т   ( |"**"|+5U*? H! "E(E 0` ԂԊ(( TTT T P ݺݺݸ &P +'P M'PiLȅ`%P&P +L%P&P 'P2 M'P `'P2 m'P ``  p%P(p&P +Lp%P(p&P  L L ``H`%PH&P  +  'P M'P Lȅ`2"%P&PL+"%P&P  LL`"`ɇ`%Pp'P`

X(M(G,J))01030X(M(G,1))X(M(G,2))X(M(G,3))X(M(G,4))Bl TEST IF PLAYER WINSSvL(G)4760]:21r4340:4340:100"CONGRATULATIONS!!--YOU'VE DONE THE IMPOSSIBLE--YOU WIN WITH THESE MOVES: "255J144290A;",";C;",";B;"  MARK SQUARE AS FILLED' X(SQ)1e  SET SHAPE NUMBER/COLOR AND GOTO SUBROUTINE TO PLOT MOVEn D1u 5 &4220 0 RESET SHAPE NUMBER AND COLOR :D2 D3 N LOOP TO ADD UP TOTALS OF EACH WINNING COMBINATION XG176(bL(G) ";:RE$:RE$"1"RE$"4"3800 B(RE$):B\  REDEFINE MOVE AS SQUARE NUMBER (1-64)r SQ16A4BC20  TEST IF SQUARE IS OCCUPIED X(SQ)0510  :21 "THAT SQUARE IS ALREADY FILLED--TRY AGAIN";  4350 340G REPEATEDLY "Z1# ,21:868: 6(AN$,1)"N"340C @D2M J2170 T:21:"ENTER YOUR MOVE. LEVEL? ";:49168,0:RE$:RE$"1"RE$"4"340 ^A(RE$):A h22:20:"COLUMN? ";:RE$:RE$"1"RE$"4"360 rC(RE$):C |23:20:"ROW?RR DOS$(4) Z0! + 24101 < 21:3e "DO YOU WANT TO MOVE FIRST (Y/N) ";s AN$:AN$ AN$"Y"AN$"N"290 210  EXECUTE SUBROUTINE TO READY BOARD AND DIMENSION VARIABLES  RESET INDICATOR THAT TELLS IF PLAYIN ** < * INCIDER MAGAZINE *E = * *` > ********************f d n10:14::"STACK ATTACK": x15:19:"BY" 17:15:"SUBU MAGGE" 21:13:"COPYRIGHT 1984" 23:12:"INCIDER MAGAZINE" RR12000:(2 ********************73 * *R4 * STACK ATTACK *m5 * *6 * BY *7 * *8 * SUBU MAGGE *9 * *: * COPYRIGHT 1984 * ; * !! ! ! ! ! !!!!!!!!!       n <VXZ\^`bdfhjQ(-55>>?'',--&>' MI,%-,;>7?I55u*.5k M"