) PAINTER=======================C16G (P) COMMODORE WELT TEAMo ================================= (C) BY PETER BERGEN HILDESHEIM BEISPIELPROGRAMM 2 ZUR SERIE "SO PROGRAMMIERE ICH IN BASIC" BASIC V3,5$ C16/116/P4L =================================Vd9000`n9100sx6:0,1:4,1:}8000 WERTZUWEISUNGENV14:H16:F%(S%(5,H,V))F%(S%(5,H,V))1::H1:V1:HG1:VG1:SRS%(5,H,V)220:A15:B:S%(5,H,V)B:5000::S%(5,H,V)SR.2,3,6,7,10D+ JOYSTICKABFRAGEe,(1)1V12100:1000:3506(1)3H62100:1100:350@(1)5V42100:1200:350J(1)7H12100:1300:350^2000:F%(S%(5,H,V))249500:Չ300  VERSCHIEBUNG NACH OBENKVGVG5:VV1:S1S%(1,H,V):S2S%(5,H,V):S3S%(3,H,V):1400S%(1,H,V)S2:S%(5,H,V)S3:S%(3,H,V)S1:4000:1500:K VERSCHIEBUNG NACH RECHTSLHGHG5:HH1:S1S%(4,H,V):S2S%(5,H,V):S3S%(2,H,V):1400VS%(4,H,V)S3:S%(5,H,V)S1:S%(2,H,V)S2:4000:1500:9 VERSCHIEBUNG NACH UNTENxVGVG5:VV1:S1S%(1,H,V):S2S%(5,H,V):S3S%(3,H,V):1400S%(1,H,V)S3:S%(5,H,V)S1:S%(3,H,V)S2:4000:1500: VERSCHIEBUNG NACH LINKSHGHG5:HH1:S1S%(4,H,V):S2S%(5,H,V):S3S%(2,H,V):1400GS%(4,H,V)S2:S%(5,H,V)S3:S%(2,H,V)S1:4000:1500:`w FARBTABELLEN-ABZUGxF%(S%(5,H,V))F%(S%(5,H,V))1:5000: AKTUALISIERUNGF%(S%(5,H,V))F%(S%(5,H,V))1:5000:PP1:5100: KURSOR SETZEN 1,2:1,HG2,VG2,Q2$"*":3 KURSOR LOESCHENI41,S%(5,H,V),4:1,HG2,VG2,Q1$" ":_ FELDDARSTELLUNG1,S%(1,H,V),3:1,HG1,VG,Q1$""AVG1VG31,S%(4,H,V),3:1,HG,A,"":1,S%(5,H,V),4:1,HG1,A," "1,S%(2,H,V),3:1,HG4,A,""!:1,S%(3,H,V),3:1,HG1,VG4,"":5 FARBKONTROLLEv1,S%(5,H,V),4:1,34,FP%(S%(5,H,V)),Q1$:"##";F%(S%(5,H,V))| PUNKTANZEIGE1,8,6:1,32,3,Q1$:"######";P:1,100,2:O HIGHSCOREANZEIGEP1,8,6:1,32,6,Q1$:"######";HS:? SPIELFELDDARSTELLUNG0@V14:H16:A15FJX((1)5)1:B1\TXS%(B,H,V)8010v^BB1:B68040:8020hS%(A,H,V)X::8200:4000:HGHG5::HG1:VGVG5:|1,2:1,1,22,Q2$"SIE HABEN GEWONNEN, WENN ALLE QUADRATE"!1,1,23,"GLEICHFARBIG SIND! STEUERUNG MIT JOY(1)"V1,8,4:1,32,2,Q1$"PUNKTE":1,32,5,Q1$" HIGH "f5100:52008110:A15:B:1,B,4:1,33,FP%(B),Q1$" "::2,3,6,7,10 FARBWERTZUWEISUNG B15 S%(B,H,V)1S%(B,H,V)2:8260 S%(B,H,V)2S%(B,H,V)3:82607& S%(B,H,V)3S%(B,H,V)6:8260Z0 S%(B,H,V)4S%(B,H,V)7:8260x: S%(B,H,V)5S%(B,H,V)10D :'# DIMENSIONIERUNG UND WERTZUWEISUNGEN(#A(1)TI:S%(5,6,4):F%(10):FP%(10):HS10002#FP%(2)10:FP%(3)12:FP%(6)14:FP%(7)16:FP%(10)18.<#Q1$(18):Q2$(146):B# AUSGANGSWERTEX#A110:F%(A)0:#V14:H16:A15:S%(A,H,V)0:::#P0:HG1:VG1:% ENDE%1,2:1,1,22,Q2$" SIE HABEN ES GESCHAFFT! "&%1,1,23,"NOCH EIN SPIEL? (LI=JA / RE=NEIN) ".0%PHSHSP:5200A:%(1)7:110QD%(1)3:[N%9530