!"";6)"TARGET PONGr" COPYRIGHT 1978, COMMODORE BUSINESS MACHINES, INC. (PET VERSION)" PLUS/4 VERSION BY ERICH/UNLIMITED 2005 A$ TARGET PONG - #G1004 PX1:N%(9),PN$(9),PS%(9),PM%(9) " TARGET PONG"/"TRY TO HIT THE TARGET -- "^"EXPERIMENT BY PRESSING N AND M"#"NUMBER OF PLAYERS (1-9)? ";:1021:PYX$"PRESS RETURN AFTER EACH NAME":1100&::7)"PRESS RETURN TO BEGIN"(A$:A$(13)40 *PLPL1:PLPYPL1[-B$" ":V$""2TSTI:TXTS6000:PC1:PK3572:D1: ** DRAW BORDER *<""B$" PLAYER"PL" - "(PN$(PL),10)12);FI122:"  ";JK:" PRESS ! TO QUIT -- DIFFICULTY ="(20N%(PL))2""(B$,4);wPT((1)9003072):(3552T)(T3592)80RTD1:NNN%(PL)U(T)3280ZT,87: *** BEGIN ***cdII1NN:(PE)81PE,32xPEPK:I$:I$""500 }(PKD)32300/PKPKD:PK,81::T,32:TTTDDM(T)32TDTD:TTTDD\T,87:100q,TITXPS0:810.(PKD)78PKPKD:DD(D)41:1001(PKD)77PKPKD:D(D)(((D)1)40((D)40)40):996DD:(PKD)87800;100: ^*DIRECT HIT*^#I$"N"6003I$"M"700II$"!"PS0:810R125iXOD:PCPC1:PK,78~]DD(D)41:100^(PKD)78PKPKDOD:PCPC1:PK,77O1D40: ""O40D1O1D40O40D1100) PS100012(PC1)((TITS)6):PS0PS18*PS%(PL)PS^,PM%(PL)((PM%(PL)(PX1)PS)PX)4""6"ݠ PLAYER DIF SCORE AVRGE ":""<"ݒ "*>I1PYl@"ݒ "PN$(I)(20N%(I))2" "PS%(I)29)" "PM%(I)37)""rBD"ݒ "F""H10)"THIS IS GAME NUMBER"PX-L"";:KK14PL:"";::"*":KKPLPY:"";:\RPLPY900:I1PY:PS%(I)0::PXPX1:38\""8)"PRESS RETURN TO CONTINUE":40""4)"CHANGE DIFFICULTIES (Y/N)? ";:1011A$"N""PLAYER NUMBER? ";:1021:XXX:XPY920A$PN$(XX):AA109(A$,AA,1)" "AA1AAAA1:930{A$(A$,AA)"'S ":""A$"CURRENT DIFFICULTY IS"(20N%(XX))2(A$))"AVERAGE SCORE IS"PM%(XX)(A$))"SCORE LAST GAME WAS"PS%(XX)"NEW DIFFICULTY LEVEL (1-9)? ";:1021:N%(XX)20X28:"CHANGE ANOTHER (Y/N)? ";:1011:A$"Y"920>\I1100:A$:A$""1005j:" ";I1100:A$:A$""1005:" ";:1001(A$)01001""A$:S(A$):I1100:A$:A$""1015:" "; I1100:A$:A$""1015!:" ";:1011;A$"Y"A$"N"1011H""A$:fI1100:A$:A$""1025t:" ";I1100:A$:A$""1025:" ";:1021A$"1"A$"9"1021""A$:X(A$):L"":K1PY:"NAME OF PLAYER"K"? ";N1200]V:"DIFFICULTY LEVEL FOR PLAYER"K"(1-9)? ";:1021:N%(K)202Xe`:oB$""J150:A$:A$""1220:"";:J150:A$:A$""1220:"";:1210A(A$):A13"":1250A20(B$)1B$(B$,(B$)1):"";:1210BA20(B$)1B$"":"";:1210wA32(64AA98)""A$;:B$B$A$:(B$)912501210B$B$" ":PN$(K)(B$,10)" "::" END OF TARGET PONG PROPERTY OF COMMODORE$