@+@53281,0:53280,0::(14):(27)"F"s@"HIS PROGRAM MUST BE RUN ON A OMMODORE 128, PRESS Q TO QUIT"@"IF YOU ARE RUNNING THIS ON ANY OTHER":"MACHINE..."@A$:A$""3@A$"Q":"64 SER!!!": A"RE YOU USING 80 COLUMNS? ";:A$,AA$"Y""ES.":%:ՙ"O.":&8A A(255)bA"RAGON AR'S HARACTER ODIFIER!"A::"HICH CHARACTER NUMBER";NN$:NN(NN$)ANN1T10:S16ANN2T11:S3ANN3T11:S5ANN4T10:S18ANN5T11:S1BNN6T10:S20BNN7T11:S7.B:"OADING";;B(15,8,15JB25,8,5,"#"`B<15,"U1:";5;0;T;SmBFI1255BP#5,A$:A(I)(A$):A$""A(I)0BZ".";:BdBn5:15:""Bx"HARACTER TATS"(27)"F"ByF10:F20:F30:F40:F50:F60C:" TR: ";A(205);3C40)"Ò EX: ";A(207)OC"’ NT: ";A(209);nC40)"Ē PR: ";A(211)CA(214)0HMA(213):F11CA(216)0HNA(215):F21CF11170:HM256A(214)A(213)CF21170:HN256A(216)A(215)D:"Œ EALTH: ";HM;"/";HN0DA(218)0SMA(217):F31MDA(220)0SNA(219):F41qDF31190:SM256A(218)A(217)DF41190:SN256A(220)A(219)D"ƒ TUN: ";SM;"/";SNDA(222)0PMA(221):F51DA(224)0PNA(223):F61EF51200:PM256A(222)A(221)8EF61200:PN256A(224)A(223)YE"ǒ OWER: ";PM;"/";PN~E"Ȓ KILL OINTS: ";A(252)E:"HANGE WHICH (-, =UIT): ";EA$E("QABCDEFGH",A$,1)260,270,290,280,300,320,330,340,310)F:"AVE BEFORE UITTING? ";:A$:A$"N""O.":10005F"ES."RF A$"":::"AVING...";_F 15,8,15nF 4,8,4,"#"F X2255:A$A$(A(X)):".";::4,A$F 15,"U2:";4;0;T;S:4:15:1000F --------------- STR ------------------?G(27)"F":"EW VALUE FOR TR: ";D$:D(D$):D255:"ALUE TOO LARGE": 2:120nG"RE YOU SURE YOU WANT ";D$;"? ";:A$GA$"N""O.":271:ՙ"ES."GA(205)D:A(206)DG120G --------------- DEX ------------------3H(27)"F":"EW VALUE FOR EX: ";D$:D(D$):D255:"ALUE TOO LARGE": 2:120bH"RE YOU SURE YOU WANT ";D$;"? ";:A$HA$"N""O.":281:ՙ"ES."HA(207)D:A(208)DH120H" --------------- INT ------------------'I#(27)"F":"EW VALUE FOR NT: ";D$:D(D$):D255:"ALUE TOO LARGE": 2:120VI$"RE YOU SURE YOU WANT ";D$;"? ";:A$wI%A$"N""O.":291:ՙ"ES."I&A(209)D:A(210)DI'120I, --------------- SPR ------------------J-(27)"F":"EW VALUE FOR PR: ";D$:D(D$):D255:"ALUE TOO LARGE": 2:120JJ."RE YOU SURE YOU WANT ";D$;"? ";:A$kJ/A$"N""O.":301:ՙ"ES."J0A(211)D:A(212)DJ1120J6 --------------- HIT ------------------K7(27)"F":"EW VALUE FOR OINTS TO SPEND: ";D$:D(D$):D255:"ALUE TOO LARGE": 2:120JK8"RE YOU SURE YOU WANT ";D$;"? ";:A$kK9A$"N""O.":311:ՙ"ES."xK:A(252)DK;120K@ --------------- HLTH ------------------KA:"EW VALUE FOR LTH: ";A$:A(A$) LB"S THIS THE CORRECT VALUE";A;"? ";:B$+LCB$"N""O.":321:ՙ"ES."VLEHIA256:LO(HI(HI))256:HI(A256)LFA(213)LO:A(214)HI:A(215)LO:A(216)HILG120LJ --------------- STN ------------------LK:"EW VALUE FOR TN: ";A$:A(A$)ML"S THIS THE CORRECT VALUE";A;"? ";:B$4MMB$"N""O.":331:ՙ"ES."_MOHIA256:LO(HI(HI))256:HI(A256)MPA(217)LO:A(218)HI:A(219)LO:A(220)HIMQ120MT --------------- PWR ------------------MU:"EW VALUE FOR WR: ";A$:A(A$)NV"S THIS THE CORRECT VALUE";A;"? ";:B$=NWB$"N""O.":341:ՙ"ES."hNYHIA256:LO(HI(HI))256:HI(A256)NZA(221)LO:A(222)HI:A(223)LO:A(224)HIN[120N"":"ALL THESE GREAT BULLETIN BOARD SYSTEMS!"O:"602-742-0247: YNOSURE (HORE 128)"0O "602-742-7319: LITE (-ET 128)"XO:"TILITY PROGRAMMED BY ";:2000O:"F YOU HAVE ANY PROBLEMS, OR":"CONGRATULATIONS, LEAVE LECTRONIC AIL"O"AT EITHER BULLETIN BOARD..."P$::"HANK YOU FOR USING THIS EXTREMELY":"AWESOME PROGRAM!"P]PY13:A$"PT. OCKROACH":B$"":C$""PX116:(C$,X,1);A$;B$;:D120:D:PY: