10001010!d"";:On("",((VE1)));_p(HO));:wxHO(0):VE(214):IN$:IN$:IN$""210RV(1):FR(0):,SR$(SR):(SR$,1)" "SR$(SR$,2)-6SR$"":SR0SR$"-".7SR$SR$((((SR).510CN)),2)Y8(SR$)CTCN(CN0)SR$" "SR$:312s9CN0(SR)1E10315:SR$SR$((1(SR)((SR)).510CN),3,CN1);(SR$)CTSR$SR$" ":315<(SR$)CTSR$""=(SR$)CTSR$SR$"*":317>^4,4:4,SR$;:4:*h4,4:4:4:AA500:20: DROIDSd100:" ***** ***** "x INITIALISEREN~A$(252),RI(8),Y(8),NA$(4),SC(4)P1 8:RI(P):P$Y0 13:A$(Y)"=":A$(Y238)"=":Y .Y14 236 14:A$(Y)"!":XY1 Y13,8A$(X)"":X:A$(Y13)"!":YUB PLAATS CIJFERS WILLEKEURIG IN BORDaLN1 4yV260:Y(RV224)14`A$(Y)"" 1110jSRN:300:A$(Y)SR$:Y(N)Y:Nt:" ILT INSTUCTIES":" (J/N)";~2210100:JA1 16201820" PRINT SPEL EN NAMEN+1008"8 1 2"D" !/"Q"7-+-3"]" /! "j"6 5 4"C1 M::NA$(C):SC(C):C1490 SPELLOOPI1 M:KL0 Q1 4:U1 8:A$(Y(Q)RI(U))"" KL1 U:Q:KL0 T1 2000:T:1970. VE19:HO0:110:NA$(I);" "X (NA$(I)"" NA$(I)"COMPUTER"| 2NA$(I)"COMPUTER" 2060:1410 <"ELK NUMMER "; F210:N(IN$):N4 N1 1310 PVE20:HO14:110:N ZVE21:HO0:110:"ICHTING "; d210:RI(IN$):RI8 RI1 13806 nVE21:HO14:110:RI\ xA$(Y(N)RI(RI))"" 250:1310 AN1:AY(N):H$A$(A):A$(A)"+" AY(N)RI(RI)AN A$(A)"" ANAN1:A$(A)"+":1570:1420 Y(N)ARI(RI):A$(Y(N))H$ SC(I)SC(I)AN1:VE43I:HO0:110:SC(I) I 1280& 7  PRINT BORDJ VE0:HO8:110W Y0 17d X0 13x A$(Y14X);:X VEVE1:110:Y   BEWEGEN VAN DE CIJFERS "BARI(RI) ,VE(B14):HO((B14VE).01)148:110:"+" 6VE(A14):HO((A14VE).01)148:110:H$* @250:< J INSTRUCTIESY T"**** ****" ^:" KRIJGT ZOMETEEN EEN BORD TE ZIEN MET" h"'S. OK ZIET DE CIJFERS 1 TOT 4." r" KUNT NU EEN CIJFER INTYPEN EN DAARNA" |"EEN RICHTING. ET CIJFER ZAL NU IN DE"; "RICHTING GAAN TOT HET VOLGENDE TEKEN"j "GEEN IS. OOR ELKE DIE 'WEGHAALT'" "KRIJGT 1 PUNT. IE DE MEESTE PUNTEN" "HEEFT DIE WINT. E RICHTING KUNT " "INTOETSEN DOOR EEN GETAL (1 T/M 8, ZIE""LINKERBOVENHOEK VAN HET SCHERM)"8:"RUK OP EEN TOETS";:210A100o"ET IS OOK MOGELIJK DE COMPUTER MEE TE""TE LATEN SPELEN. ET AANTAL SPELERS IS""DAN BEPERKT TOT 3. OK IS HET MOGELIJK""DE COMPUTER TEGEN ZICHZELF TE LATEN"!"SPELEN. UL DAN VOOR DE NAAM VAN DE"="SPELER 'COMPUTER' IN"X:" !!!!!"z::" OEVEEL SPELERS "&" (1 TOT 4) ";:210:M(IN$):IN$0M4 M1 1830:I1 MD:"AAM ";I;:NA$(I):INM4 1930"X:"ILT DE COMPUTER OOK MEE LATEN SPELEN";,b2210OlJA1 MM1:NA$(M)"COMPUTER"^vM1 1960 NAMEN SPELERS IN WILLEKEURIGE VOLGORDE260:Q1 (RV25)HL$NA$(1):W1 M1:NA$(W)NA$(W1):WNA$(M)HL$:Q1190 100:"**** ****"0I1 M::NA$(I);" ";SC(I):IO:" ILT NOG EEN KEER "d" (J/N)";n2210~JA0 2040C1 4:SC(C)0:NA$(C)"":C:1060 SPELTECHNIEK COMPUTER IU15:S1 4C1 8:PP1 A$(Y(S)RI(C)PP)"" PPPP1:2080&*PP1 212004C:S6>aHLOY(S)RI(C)(PP1):WC4:W8 WW8RIJ0:P1 8:PO1:PW 2160\A$(LORI(P)PO)"" POPO1:2140fPOIJ IJPOpPzPPIJIU IUPPIJ:NS:RIC:2190VE20:HO0:110:"EEMT NUMMER ";N;" ":"ICHTING ";RI;:S HAAL TOETS EN TEST~JA1:210:(IN$"") (IN$"J") JA1(IN$"") (IN$"N") JA0JA1 2220a-14,-13,1,15,14,13,-1,-150u********************* :u* GEMAAKT OP EEN *&Du* VIC-20 *ANu* MET 8K RAM EXTRA *\Xu* R.VAN DER KRAAN *xbu* DELFLANDSTRAAT 20 * lu* 2631 HD NOOTDORP * vu* DATUM 26-01-1983 *u* TEL 01731-8813 * u*********************