% I#1: 109 ***********************************b* BALL III ** *#* COPYRIGHT 1988 BY MICHAEL ENGEL *(* *2*SPEICHERPLATZVERBRAUCH CA.5 KBYTE*/<* *XF***********************************qPR630:PR$"MICHAEL"{90006000POSITION ZUFALLBX((1)10)5:BY((1)10)6 D((1)2):D0W45:W3154,20,36,36:0:#SY10:13;(10,36);"c":13;(11,36);"c"U13;(2,3);"RECORD WITH";PR;"POINTS BY ";PR$h4,20,3,3:0:CY10:13;(10,3);"x":13;(11,3);"x"B1100LBALL QBX35BYSYBYSY1BX351170VBX4BYCYBYCY1BX41180kBY41150lBY201160o1200;tW135W45:1200:W315:1200^~W45W315:1200:W225:1200W225W135:1200:W45:1200PUPU10:78,0,78,0,31,2:W45W135:1110:W225:111078,0,78,0,31,2:W135W45:1131:W315:1131BX197;(BY,BX);"y":Ԟ(BY,BX);" ";W45BXBX1:BYBY1:1300\W315BXBX1:BYBY1:1300}W135BXBX1:BYBY1:1300BXBX1:BYBY14;(BY,BX);"b"BX392000(140021100xQ(509):Q11Q101405:1440  }SY,SY1,36,36:0:( Q10SYSY1:SY20SYSY1H Q11SYSY1:SY3SYSY1s 13;(SY,36);"c":13;(SY1,36);"c" BX201450:ԍ CY,CY1,3,3:0: BYCYCYCY1:CY20CY19 BYCYCYCY1:CY3CY4 13;(CY,3);"x":13;(CY1,3);"x": BALL WEG' (BY,BX);" "M 6;(28,10);"DER BALL IST WEG !"k 5;(22,14);"PUNKTE:";PU 20:(28,10);" " BABA1:BA52200 BA1(26,16);"b b b b" BA2(26,16);" b b b " BA3(26,16);" b b "" BA4(26,16);" b ", 410006 >1100[ 9,11,2,37:4::10,10,3,36:1: 6;(10,6);"SIE HABEN KEINEN BALL MEHR !" 50:0,31,0,39:0: PUPR2250:2232 14;(14,13);"YET A GAME ?" 13;(17,13);"PRESS Y OR N" A$ A$"Y"4000, A$"N"2242:22367 136,8= i (14,15);"YOUR NAME":17,17,14,24:5: H32:PR$"":PRPU I08 Q(509) Q32Q132280:2270 Q32HH1 H91H32 0;(17,14I);(H):78,0,78,0,31,2 Q13PR$(I1)(H)::22706  I110:PR$PR$PR$(I):@  4000F g SY0:BX0:BY0:BA0:W0:PU0q 5000 SPIELFELD 0,31,0,39:0: 3,0 (0,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" (1,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"B(2,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"y(3,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"I420:7;(I,19);"y":(21,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"(22,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"?(23,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"w(24,0);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"o1000pVORPROGRAMMz0,31,0,39:0:5 (1,2);"aaaaa aa a a aaaaaaa"(2,2);"a a a a a a a a a"E(3,2);"a a a a a a a a a"w(4,2);"aaaaa aaaaaa a a a a a"(5,2);"a a a a a a a a a"(6,2);"a a a a a a a a a"(7,2);"aaaaa a a aaaaa aaaaa aaaaaaa"3 L(9,1);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" tI1015:(I,1);"a":(I,38);"a":(16,1);"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"10,15,2,37:4:6500:4BX(1)2:BY(1)15:W(1)45:BX(2)4:BY(2)11:W(2)315 I123BX(I)2BY(I)10W(I)315:6300WBX(I)2BY(I)15W(I)45:6300}$BX(I)37BY(I)10W(I)225:6300.BX(I)37BY(I)15W(I)135:63008BX(I)26240BBX(I)376250LBY(I)106260VBY(I)156270[6300$`W(I)135W(I)45:6300:W(I)315:6300QjW(I)45W(I)135:6300:W(I)225:6300 ~tW(I)135W(I)225:6300:W(I)315:6300~W(I)315W(I)45:6300:W(I)135 (BY(I),BX(I));" ":W(I)45BY(I)BY(I)1:BX(I)BX(I)1:6340W(I)135BY(I)BY(I)1:BX(I)BX(I)1:6340HW(I)225BY(I)BY(I)1:BX(I)BX(I)1:6340jBY(I)BY(I)1:BX(I)BX(I)1 1;(BY(I),BX(I));"b"IQ(509):Q1369996155dn0 x10;(18,18);"ew"f,15,m,25,h,18,o,22,n,13,h,24,k,16,h,21,l,14,j,23,d,17,m,196530BI112:Q$,Q:14;(21,Q);Q$:aQ$"fpqwrljkt nfnmvvvulll"I121:12;(24,8I);(Q$,I,1):78,0,78,0,31,3:Q$"dmm rljkts rhshruhg"I1911:5;(27,9I);(Q$,I,1):78,0,78,0,31,322;(29,35);"(";(141);")"#W40006(#SONDERZEICHEN@2#9030l<#I1200:XZ:15623I,XZ::14249,188:F#251,251,251,0,223,223,223,0,60,126,247,251,251,255,126,60P#224,224,224,224,224,224,224,224Z#0,127,99,99,127,99,99,99,0,126,99,99,127,99,99,126Ad#0,127,99,96,96,96,99,127,0,120,102,99,99,99,102,120yn#0,127,99,96,120,96,99,127,0,127,99,96,120,96,96,96x#0,127,99,96,103,99,99,127,0,99,99,99,127,99,99,99#0,60,24,24,24,24,24,60,0,96,96,96,96,96,99,127#0,65,99,119,107,99,99,99,0,67,99,115,107,107,103,99T#0,127,99,99,99,99,99,127,0,127,99,99,127,96,96,96#0,127,99,99,127,104,102,99,0,127,99,96,127,3,99,127 #0,127,89,24,24,24,24,24,0,99,99,99,99,54,22,8#0,99,119,28,8,28,119,99,0,99,99,62,28,24,24,24$#7,7,7,7,7,7,7,7,24,24,24,24,24,24,24,24 ,24,0,99,99,99,99,54,22,8#0,99,119,28,8,28,119,99,0,99,99,62,28,24,24,24$#7,7,7