) HOOVER BOOVER ================164Q ==y =================================( (C) 8/87 MATTHIAS FLOR ==2 NEUMUENSTER ==< ==F BASIC V3.5 40Z ASCII ==AP FOR YOUR CBM 164 OR PLUS 4 ==iZ =================================od:}n4,1:0,1x8:5850(30720)6065298,0:65299,120:740,120:1804390:4300:4580:4670:4490(9)(142)(8)(27)"N"0  4750- F$(9),F(15),KE$(32):2680cLI5:LN1:WE2:LE1:CO1:KT$"JOYSTICK":PL1:MO1l210ER30190:ՋER065299,120:65298,0:(ER)::MO$(1)"GAME":MO$(2)"PRACTICE":MO$(3)"DEMO"TF038103120TF2303,10,2:":/, *** MAIN-PART ***56:I@MO2MO3PL1XJMO3840cT239,0^ID14:LE(ID)LE:WE(ID)WE:LN(ID)LN:SC(ID)0:LI(ID)LI:LV(ID)LE(ID):hCT0:CA3:TD0:PS1:ID1PL:BO1000LE(ID)2:LSLE(ID).2:FF0r42401|LI(ID)1TDTD1:TDPL190:ՋLI(ID)1680;1740OSC(ID)02060eX2:Y3:XA2:YA3kMO3CACT:CT:CT1840:430MO3460 CO 700,770CT0FF2,1,3," ":FFFF1280CTCA930CT1Y3PS4:XAX:YAY:YY14CT3X38PS1:XAX:YAY:XX1XCT5Y23PS3:XAX:YAY:YY1{CT7X1PS2:XAX:YAY:XX1MO3A$((2)128A$" ")(MO2MO3)190&PE(3072Y40X)0PE81PE201PE74PE82PE83 :PE75RT(LE)RT(LE)1:SC(ID)SC(ID)LS*DCACT990PN1,2,7: PS 1000,1010,1020,1030lXBOBOLS3.1:BO0BO0vb1390lRT(LE)0vPE811040PE201PE74PE82PE831140LI(ID)02280:2410:LI(ID)1:680RT(LE)0420 1420: NEXT LEVEL ID360*J(2)4CACTBJ1CT1PJ3CT3^J5CT5lJ7CT7rzA$ CACTA$"I"CT1 A$"K"CT3*A$"M"CT54A$"J"CT7>H 3,3,3,3,3,5,5,5,5,5,5,5,5,1,1,1,3,3,3,3,1,1,1PR 5,5,5,5,5,5,3,3,3,3,1,1,7,7,5,5,3,3,3,3,3,3,1,1,7,7,5,5,3,3,3,3,1,1,5,5\ 3,5,1,3,1,1,5,5,3,3,3,3,1,1,7,7,5,5,5,5,3,3,7,7,1,1,3,3,3,3f 1,1,3,3,7,7,5,5,5,5,5,5,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,7,7,7,7,7(p 5,5,5,5,5,5,5,3,3,3,3,1,1,1,7,7,7,7,3,3,3,1,1,1,1,5,5,5,5,3,5,5,5,3xz 3,3,3,1,1,7,7,5,5,3,3,3,3,3,3,1,1,7,7,5,5,3,3,3,3,1,1,5,5,3,5,1,3,1,1,5,5 3,3,3,3,1,1,7,7,5,5,5,5,3,3,7,7,1,1,3,3,3,3,1,1,3,3,3,3,1,1,1,1,1,1,1,1 3,3,3,3,5,5,5,5,5,5,5,5,5,5,5,5,3,1,1,1,1,1,1,1,1,1,1,1,7,7,1,1,1,1,1,1,1,1,1g 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,-1m:CA1,X,Y1," "CA3,X1,Y," "CA5,X,Y1," "CA7,X1,Y," "XAX:YAY:,XA1,YA," ":,X,Y,"ĝ":,XA1,YA," ":,X,Y,"":<,XA,YA1," ":,X,Y,"͑":],XA,YA1," ":,X,Y,"":k(27)"M",1,24,"":"JOE:"AF$"TAKE MORE CARE NEXT TIME! HA,HA!"AF$:3,596,350$T1100:1,((1)15)2,7(T.07). PS 1000,1010,1020,103088(T.08):PB,0,24," "(27)"L"wL1630:RT(LE)((219)256(218))1V8:MO21130`LI(ID)LI(ID)1j,8,1,"":"#";LI(ID);:"":t(27)"M"~HH$(1)"":HH$(2)"",,1,24,"":"JOE:"AF$"HASSO, GO AND MANGLE HIM! HA,HA!"AF$P1,2: PS 1000,1010,1020,1030yHX((1)36)1:HY((1)21)3:1,1HH1PP3072HY40HX:P1(PP):P2(PP1):F1(PP1024):F2(PP10241),HX,HY,HH$(HH):T150:HXXHH2:HXHX1HXXHH1:HXHX1-HYYHYHY1?HYYHYHY1J30660xPP,P1:PP1,P2:PP1024,F1:PP10241,F2 HXXHYYT180:3,((1)200)750,5: ((1)9):(,0,24," "(27)"L"28:MO21350&<LI(ID)LI(ID)1>FCTCT4:CT1CT7NPCT3CT5WZCT0{d,8,1,"":"#";LI(ID);:"":n,16,0,"":"$#####.#";SC(ID)x,32,1,"":"$####.#";BO:: *** NEXT LEVEL ***:0,1:""& " "W "  " " " "  JOE:"AF$"CONGRATULAIONS,CONGRATULATIONS! " " ",!"  YOU HAVE MOWED THE GRASS-PLOT #";:"#";LV(ID);:" !!! "[!" "!BO0"  SORRY NO BONUS, YOU MOWED TO SLOW!!! ":1540!"  BONUS FOR QUICK WORK :";:"$####.#";BO;:" """ "J""  PRESS ON TO MOW PLOT #";:"##";LV(ID)1;:"! GOOD LUCK!";S"AF$""" "","  YOU:"AF$"OK, MR. JOE!"AF$" ""6" "#@"  "A#J:Y((1)7)25:FF(((1)13))J#TFL0\#^218,Y:219,F#hP2048Y401:216,P 255:217,(P256):1015#rFL0YY1:FL1:1640#|A$#(2)128A$" "$I0100050:30552,I 255:30550,(I256):30540:$30552,0:30550,0T$LE(ID)LE(ID)1:LV(ID)LV(ID)1:LE(ID)9LE(ID)9:1720$LI(ID)LI(ID)1:WE(ID)WE(ID)2:LN(ID)LN(ID)2$SC(ID)SC(ID)BO:$:$ *** SCREEN ***$:$5850:(27)"M"%BT$""%0,6,6:4,1:"0"[%" PLAYER ";:"#";ID;:" CASH:";:"$#####.#";SC(ID);%" PLOT #";:"#";LV(ID);:" "%" LIVES :";:"#";LI(ID);:" HIGH:";:"$#####.#";SE(1);%" BONUS:";:"$####.#";BO;:" "$&&" ":T323n&0,0,T," ":,39,T," "::" "&:T323:,1,T,"":&DX1:T11LE(ID)&NXX4&XT317:,X,4T3,""(BT$,2)"": 'bT31017:,X,4T3,""(BT$,2)"":('lT1C'vY1223:,36,Y,"":S',36,12,""u'T11WE(ID):,36T1,12,"":'T1LE(ID)22'X((1)37)2:Y((1)21)3:PP3072Y40X'(PP)75(PP40)75(PP39)751950((PP1)75(PP40)75(PP41)751950/((PP41)751950@(,X,Y,"":Q(""(27)"L"x(1630:RT(LE)((219)256(218))1(5860(MO3,2,2," DEMO MODE --- PRESS FIRE TO EXIT!"(MO2,1,2,"PRACTICE MODE --- PRESS FIRE TO EXIT !")) AF$(34):1,2,7`)TX$(1)"JOE:"AF$"HEY,YOU! WOULD YOU LIKE TO EARN SOME MONEY ???"AF$) TX$(2)"YOU:"AF$"YES, OF COURSE. BUT WHAT MUST I DO ???"AF$)*TX$(3)"JOE:"AF$"YOU CAN MOW SOME GRASS-PLOTS FOR ME AND YOU WILL GET A BONUS",*4TX$(3)TX$(3)" IF YOU'RE QUICK ENOUGH !!!"AF$*>TX$(4)"YOU:"AF$"OK, SIR ! PLEASE GIVE ME A LAWN MOWER, BECAUSE I WANT TO BEGIN!"*HTX$(4)TX$(4)AF$*RTX$(5)"JOE:"AF$"YES YOU'LL GET ONE, BUT BE CAREFUL : DO NOT DAMAGE MY BED" +\TX$(5)TX$(5)"S !!!"AF$O+fI15:TX$(I)" "TX$(I):Z+pI15c+zFL0i++,1,24,(TX$(I),38)+TX$(I)(TX$(I),2)(TX$(I),1)+A$:(2)128A$" "I5:+(TX$(I),1)AF$FLFL1+T140:: FL2+I>,,1,24,(27)"O"" "K,239,0:Q,:i, *** GAME OVER ***o,:w,V0, 0,1:,2,10,"", ,2,11," YOU'VE FAILED IN YOUR TASK!!! "- ,2,12,""I-$ ,2,13," PRESS FIRE! "p-. FF0::FF0VV1:V8FF1:2380-8 A$:J(2)-B FF1VV1:V1FF0-L 30601,V:30600:A$" "J128-V 30601,8-` -j MO3-t SC(ID)SE(10)2450-~ . :. *** NEW HIGHSCORE ***". :]. 0,1:4,1:" ". "  CONGRATULATIONS !!! YOU'VE GONE DOWN ". " ". "  IN THE HOOVER BOOVER HISTORY !!! "/ " "P/ "  PLEASE ENTER YOUR NAME (MAX.25 KEYS) "/ " "/ "  A........................ "/ Z1:NA$"":KE125/ :J(2):A$/ A$""J3ZZ1:Z32Z10 A$""J7ZZ1:Z1Z32@0 T120::,KE1,7,""KE$(Z)""S0( J128A$" "02 KE$(Z)"_",KE1,7,".":KEKE1:KE1KE1:NA$"":25600< KE$(Z)"_"NA$(NA$,KE1):25600F NA$NA$KE$(Z)0P KE0Z I110:SC(ID)SE(I)81d J10I1:SE(J)SE(J1):NA$(J)NA$(J1)::NA$(I)NA$:SE(I)SC(ID)>1n [1x I126:KE$(I)(I64):1 2720:I16: KE$:KE$(I26)KE$:1 I110:NA$(I)"MATTHIAS FLOR":SE(I)100:1 1 " ","_","?","","$","*"1 :1 *** DISPLAY HIGHSCORES ***2 :2 4240:5850$2 FB0:J3:" "U2 " "2 "  PLAYERS HALL OF FAME : "2 I110:FB0JJ1:J7FB1:JJ12 FB1JJ1:J5FB02 1,2,J:" "3 "  ";:"##";I;G3 " ";:"######################";NA$(I);:"0"p3" " ";:"$#####.#";SE(I);:" ":" "v3, 36 " "3@ "  PRESS FIRE "3J TI$"000000":5860:239,03T 2960,4^ A$:A$" "(2)128TI$"000015"2900J4h TF2A$" "(2)128o4r TI$"000014"TI$"000000":2910|4| 1,953,54 31604 SS((1)8)14 SS1SO7394 SS2SO7704 SS3SO7984 SS4SO8104 SS5SO8344 SS6SO8545 SS7SO864!5 SS8SO88115 SS3L15E5 SS3SS7L10S5 SS6L5^5 T1Lt5 1,SO,6:2,SO2,6|5 :5& :50 *** MENUE ***5: :5D F$(0)"":F$(1)"":F$(2)F$(1):F$(3)F$(1):F$(4)F$(1):F$(5)"":F$(6)""6N F$(7)"":F$(8)"":F$(9)""6X 4240:5850O6b " "6l "  START "6v " "6 "  ONE PLAYER "7 " "A7 "  TWO PLAYERS "p7 " "7 "  THREE PLAYERS "7 " "8 "  FOUR PLAYERS "18 " "b8 "  LEVEL : "8 " "8 "  HALL OF FAME "8 " "$9 "  RESET THE BEST "T9 " "9 "  CONTROL : "9 " "9 "  GAME MODE : ":* " "S:4 "  "(34)"HOOVER BOOVER"(34)" ":> " ":H "  @ COPYRIGHT 1987 BY SYS 2001, LTD. ":R ,13,11,"":"#";LE:,15,17,""KT$"";\ ,17,19,"":"########";MO$(MO);:""#;f Y1:YA19:5860B;p PL 3530,3540,3550,3560r;z 239,0:T1100::TI$"000000"::J(2):A$; J1A$""YAY:YY2:TI$"000000":1,944,5:Y1Y19; J5A$""YAY:YY2:1,944,5:TI$"000000":Y19Y1 < ,2,Y,F$((Y1)2)"В":,2,YA,F$((YA1)2)" "A< J128TI$"000009"A$" "Z< TI$"000009"TF1:g< 1,953,5< (Y1)21 300,3530,3540,3550,3560,3580,2740,3610,3710,3750< PL1:PL$"* ":3570< PL2:PL$" * ":3570< PL3:PL$" * ":3570= PL4:PL$" *":3570G= TT392:,19,TT,""(PL$,(TT1)2,1)::3450x= LELE1:LNLN2:WEWE2:LE9LE1:LN1:WE2=,13,11,"":"#";LE:3450=3450=4240:" " >$"  NEVER MIND ":>." "k>8"  FER SURE ">BFA$"":FB$"":Y11:Y23::A$>LA$""(2)1Y11:Y23:FA$"":FB$"":1,944,5>VA$""(2)5Y13:Y21:FA$"":FB$"":1,944,56?`,2,Y1,FA$"В":,2,Y2,FB$" ": (2)128A$" "\?jY13I110:SE(I)0:NA$(I)"":o?t1,953,5:3160?~COCO1:CO2CO1?CO1KT$"JOYSTICK"?CO2KT$"KEYBOARD"?,15,17,""KT$"":3450?MOMO1:MO4MO1@,17,19,"":"########";MO$(MO);:"".@MO3MO235308@3450>@D@:X@ *** INTRO ***^@:|@1,0,0:2,0,0:4240:5850@3850:T012: F:F(T)F:@ 113,66,115,84,69,70,119,72,89,123,122,92,110@"":4,1:0,1A" "DA("  WELCOME TO THE CBM164 VERSION OF "sA2" "A<"  "(34)"HOOVER BOOVER"(34)" "AF" "BP"  "?BZ" "pBd"  @ COPYRIGHT 1987 BY SYS 2001, LTD. "Bn" "Bx"  SOFTWARE BY MATTHIAS FLOR "B" "0C"  GAMBIT: 1. SELECT GAME MODE "_C" "C"  2. SELECT NUMBER OF PLAYERS "C" "C"  3. SELECT KIND OF CONTROL "D" "PD"  4. SELECT LEVEL "D" "D"  5. START GAME "D" "E"  "?E" "pE"  PRESS FIRE TO CONTINUE ! "E239,0:TI$"000000":5860E1,7,2000:2,8,2000E":Y((1)12)2:FF(((1)13))E,FL0E6218,Y:219,FF@P2048Y401:216,P 255:217,(P256):10154FJFL0YY1:FL1:4160 *** 5. MC PROGRAMM ***LH:LR4730L\PR0:I3066030710: HX$:DE(HX$):I,DE:PRPRDE: MfPR70015860:"?FEHLER IN 5.MC DATAS !!!":MpcMz A2,08,20,C0,B8,A9,00,85,80,A2,03,A0,84,86,7F,84,7E,8A,48,98,48,A9,00,A0,00,20M 61,B8,A2,00,EA,E8,E0,15,D0,FA,68,A8,68,AA,C8,C0,FF,D0,E2,E8,E0,04,D0,DB,60M *** NEUE CHR$ ***M55,75:56,119::5690N65298,0:65299,120:740,120:PR(84):5740:48508N5850: A 1 84:PR0KNS:PRS:P07SN WlNSP16384,W:PRPRWN P:DZ(64)256(63)NPRPR(A)5860:"?DATAFEHLER IN"DZ"!":NA::180N 14344,126,102,102,126,102,102,102, 0: "A")O 14352,126,102,102,127, 99, 99,127, 0: "B"[O 14360,126, 96, 96, 96, 96, 96,126, 0: "C"O 14368,124,102,102,102,102,102,124, 0: "D"O 14376,126, 96, 96,120, 96, 96,126, 0: "E"O$ 14384,126, 96, 96,120, 96, 96, 96, 0: "F"#P. 14392,126, 96, 96,102,102,102,126, 0: "G"UP8 14400,102,102,102,126,102,102,102, 0: "H"PB 14408, 24, 24, 24, 24, 24, 24, 24, 0: "I"PL 14416, 6, 6, 6, 6, 6,102,126, 0: "J"PV 14424,102,102,102,127, 99, 99, 99, 0: "K"Q` 14432, 96, 96, 96, 96, 96, 96,126, 0: "L"OQj 14440,127,107,107,107, 99, 99, 99, 0: "M"Qt 14448,102,102,126,126,110,102,102, 0: "N"Q~ 14456,126,102,102,102,102,102,126, 0: "O"Q 14464,126,102,102,126, 96, 96, 96, 0: "P"R 14472,126,102,102,102,102,126, 12, 0: "Q"IR 14480,126,102,102,126, 99, 99, 99, 0: "R"{R 14488,126, 96, 96,126, 6, 6,126, 0: "S"R 14496,126, 24, 24, 24, 24, 24, 24, 0: "T"R 14504,102,102,102,102,102,102,126, 0: "U"S 14512,102,102,102,102,102, 60, 60, 0: "V"CS 14520, 99, 99, 99,107,107,107,127, 0: "W"uS 14528,102,102,126, 24,126,102,102, 0: "X"S 14536,102,102,102,126, 24, 24, 24, 0: "Y"S 14544,126, 6, 6, 24, 96, 96,126, 0: "Z" T 14552, 60, 48, 48, 48, 48, 48, 60, 0: "["=T 14560, 30, 18, 48,124, 48, 98,254, 0: "\"oT  14568, 60, 12, 12, 12, 12, 12, 60, 0: "]"T 14576, 0, 24, 60,126, 24, 24, 24, 24: "^"T 14584, 0, 16, 48,127,127, 48, 16, 0: "_"U( 14592, 0, 0, 0, 0, 0, 0, 0, 0: " "7U2 14600, 24, 24, 24, 24, 0, 0, 24, 0: "!"iU< 14608,102,102,102, 0, 0, 0, 0, 0: """UF 14616,102,102,255,102,255,102,102, 0: "#"UP 14624, 24,126, 96,126, 6,126, 24, 0: "$"UZ 14632, 98,102, 12, 24, 48,102, 70, 0: "%"1Vd 14640,126,102,126, 56,103,102,127, 0: "&"cVn 14648, 24, 24, 24, 0, 0, 0, 0, 0: "'"Vx 14656, 60, 48, 48, 48, 48, 48, 60, 0: "("V 14664, 60, 12, 12, 12, 12, 12, 60, 0: ")"V 14672, 0,102, 60,255, 60,102, 0, 0: "*"+W 14680, 0, 24, 24,126, 24, 24, 0, 0: "+"]W 14688, 0, 0, 0, 0, 0, 24, 24, 24: ","W 14696, 0, 0, 0,126, 0, 0, 0, 0: "-"W 14704, 0, 0, 0, 0, 0, 24, 24, 0: "."W 14712, 0, 6, 6, 24, 24, 96, 96, 0: "/"%X 14720,126,102,110,118,102,102,126, 0: "0"WX 14728, 24, 24, 24, 24, 24, 24, 24, 0: "1"X 14736,126, 6, 6, 14,112, 96,126, 0: "2"X 14744,126, 6, 6, 30, 6, 6,126, 0: "3"X 14752, 96,102,102,102,127, 6, 6, 0: "4"Y 14760,126, 96,126, 6, 6, 6,126, 0: "5"QY 14768,126, 96, 96,126,102,102,126, 0: "6"Y 14776,126, 6, 6, 12, 12, 24, 24, 0: "7"Y 14784,126,102,102,126,102,102,126, 0: "8"Y" 14792,126,102,102,126, 6, 6,126, 0: "9"Z, 14800, 0, 0, 24, 24, 0, 24, 24, 0: ":"KZ6 14808, 0, 0, 24, 0, 0, 24, 24, 24: ";"}Z@ 14816, 30, 24, 96, 96, 96, 24, 30, 0: "<"ZJ 14824, 0, 0,126,126, 0,126,126, 0: "="ZT 14832,120, 24, 6, 6, 6, 24,120, 0: ">"[^ 14840,126, 6, 6, 6, 24, 0, 24, 0: "?"E[h 14856,231, 66,255,255,255,255, 66,231: ""w[r 14864, 0, 0,224, 36, 36,224, 0, 0: ""[| 14872, 0, 0, 7, 36, 36, 7, 0, 0: ""[ 14880,231, 66,255,255,255,255, 66,231: "" \ 14888, 0, 48,248, 63, 15, 7, 4, 4: ""?\ 14896, 0, 3, 4,252,252,252, 4, 4: ""q\ 14904, 0,192, 32, 63, 63, 63, 32, 32: ""\ 14912, 0, 12, 31,252,248,248, 8, 8: ""\ 14920, 16,130, 0, 16,130, 0, 16,130: ""] 14928, 0,255, 0,255, 0,255, 0,255: ""9] 14936, 0, 73, 0,146, 0, 36, 0, 73: ""k] 14944, 0, 0, 24, 24, 0, 60, 36, 36: ""] 14952,189,255,189, 60, 60,189,255,189: ""] 14960, 36, 36, 60, 0, 24, 24, 0, 0: ""^ 14336, 60, 66,153,161,161,153, 66, 60: "@"3^ 14968,255,129,129,129,129,129,255, 0: ""e^ 14976,255,128,224,128,224,128,224, 0: ""^ 14984, 60, 66,129,153,153,129, 66, 60: ""^ 14992,170,170,170,170,170,170,170,170: ""^& 15000, 0,252, 2,242, 10,202, 42,170: ""-_0 15008, 54,127,127,127, 62, 28, 8, 0: "">_:"M"V_D"T D000,D7FF,7800"`_N"X"q_X"GOTO4770"_b1319,19:QQ13201324:QQ,13::239,6:_l:_v5780:I184: PS:PR(I)PS:PRPRPS: `PR12796625860:"?FEHLER IN CHECKSUMMENDATAS !!!":`a` 15106,15134,15092,15126,15132,15110,15142,15138,14576,14674,15154,15134` 15185,15218,15218,15208,15144,15233,15070,14766,15242,15142,15265,15212` 15040,15024,14912,15180,14748,14882,14966,14592,14720,14914,15636,15152Ka 15088,15382,14720,15016,14844,15251,14902,14760,14822,14752,14964,15506a 14896,15222,15050,15293,15252,15542,14986,15570,15386,14896,14904,15212a 15328,15138,15032,16470,15384,14958,16494,15277,15667,15381,15719,153585b 15948,15264,15124,16338,15140,15216,16123,16287,15800,16352,15920,15541Ob65286,(65286)239:hb65286,(65286)16:nb:b HOOVER BOOVER ==============164b 032768 BYTES MEMORY ==b  002320 BYTES FRE("") ==c 002063 BYTES VAR./$/ARRAYS ==,c  028385 BYTES PROGRAM ==Rc* ===============================