) PADDLES=======================C16G (P) COMMODORE WELT TEAMo ================================= (C) BY PETER BERGEN HILDESHEIM BEISPIELPROGRAMM 3 ZUR SERIE "SO PROGRAMMIERE ICH IN BASIC" BASIC V3.5! C16/116/P4I =================================T10000}A(TI):0,2,6:4,2,6::9600:95001,1:RU1:RM3:BA59000:9100H6:V1:BP3905:2200:RI14000:4100:4200:4300:4400:3600 STEUERUNG :A1SP,(1)1V12100:VV1:2200N(1)3H62100:HH1:2200p(1)5V42100:VV1:2200(1)7H12100:HH1:2200(1)128F%(H,V)F%(H,V)1:2300:2200 3000:RW0 RW0:RURU1:RURM5000*:5203 KURSOR LOESCHEN:41,1:1,(H1)62,(V1)62,"*":N KURSOR SETZEN~1,7,3:1,(H1)62,(V1)62,Q1$" "Q2$: PADDLES DREHENF%(H,V)4F%(H,V)1 1,1:1,(H1)61,(V1)61,S$(F%(H,V)): BALLVERLAUF RI3100,3200,3300,3400 OBEN; (BP),32:BPBP40:(BP)323500:d& (BP1024)503510:BPBP40:RI3:0 (BP1024)533530:BPBP40:RI3:: (BP1024)563520:D (BP)108RI3:N (BP)112(BP)123RI4:X (BP)113(BP)124RI2:  RECHTS2 (BP),32:BPBP1:(BP)323500:Z (BP1024)503510:BPBP1:RI4: (BP1024)533530:BPBP1:RI4: (BP1024)563520: (BP)127RI4: (BP)112(BP)123RI3: (BP)113(BP)124RI1: UNTEN' (BP),32:BPBP40:(BP)323500:P (BP1024)503510:BPBP40:RI1:y (BP1024)533530:BPBP40:RI1: (BP1024)563520: (BP)108RI1: (BP)112(BP)123RI2: (BP)113(BP)124RI4:G LINKSH (BP),32:BPBP1:(BP)323500:ER (BP1024)503510:BPBP1:RI2:m\ (BP1024)533530:BPBP1:RI2:f (BP1024)563520:p (BP)127RI2:z (BP)112(BP)123RI1: (BP)113(BP)124RI3: KUGEL SETZEN (BP1024),16:(BP),81:% KONSEQUENZ MAUERB (BP1024),53:(BP),86:Z KONSEQUENZ BREZELs 1,HB,VB,S$(8):3600 PP1:4000:BRBR1:4100:BR0RW1  KONSEQUENZ GRUEN BABA1:4200:BA0RURM:RW1  BREZEL SETZENX((1)2)1;X1HB((((1)5))6)4:VB((((1)4))6)1n$X2HB((((1)6))6)1:VB((((1)3))6)4.1,9,3:1,HB,VB,S$(6): ANZEIGEN1,1:1,35,2,"":"####";P:1,1:1,35,12,"":"####";BR:h1,1:1,35,15,"":"####";BA:#1,1:1,35,18,"":"####";HS:F01,1:1,35,21,"":"####";RU:Q ENDE1,1:1,1,23,"NOCH EIN SPIEL? LI=JA / RE=NEIN"PHSHSP:4300(1)7:510(1)3:5020'# BILDSCHIRMAUFBAU(#M$(165)(165)(165)(165)(165)'-#1,3,3:A022:1,34,A,M$:>2#1,1:H16:V14Y<#X((1)4)1:H6X1F#F%(H,V)X:1,(H1)61,(V1)61,S$(X)P#:Z#A30723106:A1024,50:A,101:A144,50:A880,101:d#A2088288840:A,50:A1024,101:5n#1,35,1,Q1$"1.SP":1,35,11," BR ":1,35,14,"BALL":1,35,17," HS "Mx#1,35,20," RU "Q2$_# SPIELFELDERo#RU19300#RU29305#RU39310#A,BR,SP:B1A:C,HG,VG"$C51,3,3'$C71,6,3,$1,HG,VG,S$(C)::R$ FIGURENANZ.,BREZELAN.,SPEED*S$ JE FIGUR NR.,HORIZONT.,VERTIK.`T$6,5,5,5,4,1,5,28,1,5,16,7,5,16,13,5,4,19,5,28,19Y$4,8,3,7,7,4,7,25,4,7,7,16,7,25,16^$6,10,1,5,16,1,5,1,4,5,31,4,7,7,10,7,25,10,5,16,19% STRINGS%9550:A18:A1$,A2$,A3$:S$(A)A1$Q3$A2$Q3$A3$::XL% ALLE ZEICHEN NACH DARUEBERSTEHENDEM REM-MUSTER MIT COMMOD.-TASTE EINGEBENpM% " B "," * "," B "N%" "," * "," "O% " C"," * ","E "P%" "," * "," "Q% " ","D*D"," "R%" ","*"," "S% "A "," * "," F"T%" "," * "," ",U% "GGG","GGG","GGG"CV%"","",""[W% "HIJ","KLM","NOP"rX%"","",""Y% "QRS","TUV","WXY"Z%"","",""\%" "," "," "% DIMENSIONIERUNG UND ZUWEISUNG%F%(6,4):S$(8)( %Q1$(18):Q2$(146):Q3$(17)(157)(157)(157). %O ' PROGRAMM FUER USER-ZEICHENw '7,"POKE65298,0:POKE65299,60"(13) '8,"POKE65298,196:POKE65299,208"":HELP"(13) '10040:A832861:B:CCB:A,B: $'65298,0:65299,60!.'832:55,255:56,59::10100,!8'162,0,189,0,208,157,0,60,189,0Q!B'209,157,0,61,189,0,210,157,0,62x!L'189,0,211,157,0,63,202,208,229,96!s' ZEICHENDATAS!t'97,192,192,192,192,64,96,96,48!~'98,0,0,0,129,195,231,102,60!'99,3,3,3,3,3,1,1,0 "'101,231,231,231,0,126,126,126,0'"'103,3,3,3,3,2,6,6,12D"'106,48,24,29,15,7,3,0,0b"'107,32,96,112,24,9,1,3,3"'108,0,0,0,255,255,0,0,0"'110,4,6,14,24,144,128,192,192"'111,12,24,184,240,224,128,0,0"'112,0,32,112,56,28,14,7,3#'113,3,7,14,28,56,112,32,0'#'114,0,0,60,255,255,255,255,255I#'115,2,6,12,24,112,224,224,96i#(116,0,0,14,31,48,96,96,192# (117,0,0,112,252,140,6,6,3#(118,60,60,36,102,102,66,195,195#(119,64,96,48,24,14,7,7,6#((120,189,24,24,24,189,231,255,255$2(121,129,129,129,129,195,255,126,0:$<(123,192,224,112,56,28,14,4,0\$F(124,0,4,14,28,56,112,224,192$P(125,0,129,195,255,255,126,126,60$Z(126,192,192,192,192,192,128,128,0$d(127,24,24,24,24,24,24,24,24$n(-1$x( LADER FUER USER-ZEICHEN%(C:C1500!%(A07:B:C815360A,B:,%(10370