10001010!d"";:On("",((VE1)));_p(HO));:xHO(209)256((210)(648))(211)yVE(HO22):HOHO22VE:IN$:IN$:IN$""21036878,15:36876,225:OO1150:OO:36876,0: RV(1):FR(0):C,SR$(SR):(SR$,1)" "SR$(SR$,2)I-p6SR$"":(SR)10(CTCN(CN))3187SR.510CNSR$"-"8SR$SR$((((SR).510CN)),2)9(SR$)CTCN(CN0)SR$" "SR$:313:CN0(SR)1E10316+;SR$SR$((1(SR)((SR)).510CN),3,CN1)K<(SR$)CTSR$SR$" ":316a=(SR$)CTSR$"">(SR$)CTSR$SR$"*":318?^4,4:4,SR$;:4:h4,4:4:4:A750:20: SIMPELPAC *** BREEDTE SCHERM METEN100:HO0:VE0HRHO110:120$HRHO 10706$HOHO1:1030T. *** HOOGTE SCHERM METENb8HO0:VE0lBVRVEzL110:120VVRVE 1200`VEVE1:1090R$(VR1):AA200HR(VR2):100VE0:110009000:SC0 100: *** DOOLHOF LEZEN EN AANPASSEN:HO0%I0 VR15A$:L(A$)fL2HR 2500: *** EXTRA SPATIES BIJVOEGENyL2HR 2060A$"*"A$"*"2550 A$(A$,2,L2)L(A$) 2050 A$A$" ":L(A$) L2HR 2550 A$" "A$:L(A$) L2HR 2550 25004 VEI:110:A$;:R$(I)A$H I:VR21 2560p R$(VR1)R$(0):VEVR1:110:R$(0); LM0 3000 I0 VR1:J1 HR (R$(I),J,1)"." LMLM10 J:I:LCLM( (SP$)2(A$) SP$SP$" ":2600 HAPPER CONTROLE HOXH:VEYH:110:"="( 200@ IN$L$ DX1:DY0W IN$R$ DX1:DY0o IN$U$ DY1:DX0 IN$B$ DY1:DX0 XXHDX:YYHDY H$(R$(Y),X1,1) H$M$ XXH:YYH:3150 H$"." 3170& SCSC10:HO0:VE0:110:"SCORE:";SC50 R$(Y)(R$(Y),X)" "(R$(Y),X2,HRX1)>5 250Y: SCLC LCLCLM:7000oN PACMAN IS SPOOKb HO0:VEYH:110:R$(YH)l HOX:VEY:110:H$(DX1):XHX:YHY SPOOKXXSRX:YYSRYS$(R$(Y),X1,1)S$M$ 5060#RY0 RY(YHYSA):RX0:XXS:5060?RX(XHXSA):RY0:YYSiSCLM HO0:VEYS:110:R$(YS):5070SCLMLM HO1:VEYS:110:SP$HOX:VEY:110:G$:YSY:XSX(XXH) (YYH) 100003000X EINDE ROUTINEb100:VE1lS$"ALLE PUNTEN OP!!!":8000%vSRSC:300BS$"UW SCORE:"SR$:8000TSRSCLM:300tS$"SPEL NUMMER:"SR$:8000SRLC:300:S$"HAAL NU "SR$" PUNTEN.":8000S$"DRUK SPATIE IN VOOR HET VOLGENDE SPEL.":8000200:IN$" " 70909020:2000@L(S$):HO0"JI1 L3TM$(S$,I,1)E^M$" " 8050RcW$W$M$YhIkr NIEUW WOORD|HO(W$)HR HO0:VEVE2:8500110:W$;HOHO(W$)W$" "IL 8040VEVE3:8500:4! TESTEN OF SCHERM VOL IS>!VEVR H!210&R!100:VE0:HO0:E(# ALLE BEGINWAARDEN ZETTENW-# HR=.. VR=..p2#XHHR21:YH1:LCLM<#XS(HR2)1:YS11:RX1:RY0F#H$(0)">":H$(1)"O":H$(2)"<":G$"#":A.1:M$"*"'' EINDE SPEL'100$'HO0:VE1.'S$"JAMMER!!! GEPAKT.":8000$8'SRHS:300IB'S$"DE HIGH-SCORE IS:"SR$:8000XL'SRSC:300V'S$"U BEHAALDE EEN SCORE VAN:"SR$:8000`'HSSC 10110j'S$"EEN NIEUWE HIGH-SCORE !!!":8000t'HSSC~'S$"NOG EEN SPEL (J/N) ?":8000'210'(IN$"J") (IN$"J") 15009'(IN$"N") (IN$"N") 100:D'10120U* BEGIN SPELw+S$" *** SIMPELPAC ***":8000 +S$"IS EEN EENVOUDIG SPEL.":8000+S$"EET ALLE PUNTEN OP EN ONTWYK HET '#'.":8000 /S$"ALS DE PUNTEN OP ZYN KOMT ER EEN MOEILYKER SPEL." /8000L /S$"ER ZYN IN TOTAAL 3 MOEILYKHEIDSGRADEN.":8000~ &/S$"HET EERSTE SPEL IS HET MAKKELYKST.":8000 0/S$"IN HET TWEEDE SPEL LAAT HET '#' EEN SPOOR" :/S$S$" ACHTER WAARONDER DE PUNTEN SCHUIL GAAN." D/8000(!N/S$"DE DERDE EN VOLGENDE SPELEN ZYN HET MOEILYKST."2!X/8000c!b/S$"HIERIN WIST # HET DOOLHOF UIT !!!":8000m!l/8520!0S$"MET WELKE TOETS WILT U NAAR LINKS STUREN?"!08000:210:L$IN$!0S$"MET WELKE TOETS WILT U NAAR RECHTS STUREN?""08000:210:R$IN$3"0S$"MET WELKE TOETS WILT U NAAR BOVEN STUREN?"I"18000:210:U$IN$~"1S$"MET WELKE TOETS WILT U NAAR BENEDEN STUREN?""18000:210:B$IN$"2"a"***************************************""a"*.......*.......*.....*.......*.......*"'#a"*.***.*.*.***.*.*.***.*.*.***.*.*.***.*"V#a"*.....*.......*.........*.......*.....*"#a"***.*.*.***.*.*.***.***.*.*.***.*.*.***"#a"*...*.......*.............*.......*...*"#a"*.*.*.***.*.*.***.*.*.***.*.*.***.*.*.*"$a"*.*.......*.......*.*.......*.......*.*"A$a"*.*.***.*.*.***.*.*.*.*.***.*.*.***.*.*"p$a"*.......*.......*.....*.......*.......*"$b"*.***.*.*.***.*.*.***.*.*.***.*.*.***.*"$ b"*.....*.......*...* ...*.......*.....*"$b"*.***.*.*.***.*.*.***.*.*.***.*.*.***.*",% b"*.......*.......*.....*.......*.......*"[%*b"*.*.***.*.*.***.*.*.*.*.***.*.*.***.*.*"%4b"*.*.......*.......*.*.......*.......*.*"%>b"*.*.*.***.*.*.***.*.*.***.*.*.***.*.*.*"%Hb"*...*.......*.............*.......*...*"&Rb"***.*.*.***.*.*.***.***.*.*.***.*.*.***"F&\b"*.....*.......*.........*.......*.....*"u&fb"*.***.*.*.***.*.*.***.*.*.***.*.*.***.*"&e"*.......*.......*.....*.......*.......*"&e"***************************************"&e"SIMPELPAC&e"DOOR: HJ NOOTENBOOM'e"HOBBYSCOOP BASICODE 26'e"====================="@'e::J'e::Z'0u SIMPELPACn':u HJ NOOTENBOOM'Du GOOTSEHOEK 81'Nu 3238 XB ZWARTEWAAL'Xu TEL:01887-1110'bu VIC-20 MET 11.5K,CBM BASIC V2'lu JULI 1983'vu WERKT OP 8K((u BASICODE 2 GESCHIKT VOOR ELKE SCHERMGROOTTEY(u PAS REGEL 250 AAN VOOR EEN ZEER KORTE PIEP(u VERKLEIN IN 9005 DE DOOLHOF-GROOTTE INDIEN GEWENST(u(u NOS HOBBYSCOOP HILVERSUM