JFSJX4.BASb B@dz`  ! #"&$'%)(,*-+/|0.123547698:}~;<=>roAB@CDFEH?LJNKGIMO"mQRPSZTVWYX[\_^U]:5FhJpvu0BTQajiln#t;x>SJ=tȲ/}X"1ziiuw~wȲa:h9ق_.g%>{eg=ϲuZκwr(ݏ%|v?3R\-Y-)n?8;2K#̙pѴq痮첿 (CiK̉\pJל|or")Ɲ2PE7.ۿ#߲Ɲ_ 2d|]&894-˲,oJE_\ ;B˲,˲.ۿeYeYeYeY~ />ؙԉOϷst"*sZoR*_-˲,˲,˲,k?л/sOe甤2%l@-˲,˲,˲,tvA'"t|lu")@GhY`s")@G&J_ NLtǬ/Nr")@ (In]:2K_ r4ɸK:GiS6]#MvqGhYeYeYoYeYeYeY$;ۇZOH NCRewR.}쑝ecHI oR.9"'6 Or)9eZ_6]Gbtɦ+seY+ﲿ[eYeYeYeNJoeYeYeYeY.ۿeYeYeYeY~d߲,˲,˲,˲,k?ֵoYeYeYeYoYeYeYeY+[eYeYeYezvJ!urjOyħ-h?Vew",a){s",-1ŏ$ݏw])ղħ< XSpG ](AK|bD9JbK gF]g-1TJDzP%I=oR.?m,˲eY:~.ۿt@%"ŧq<[N%}/H'ĞX:>\}VG~]I,>o5*?}NKpx.ۿ܇;B˲,˲,˲}v-˲,˲,˲,˲ oeYeYeYeY벿[eYeYeYe]˲,˲,˲,˲oYeYeYeYxv-˲,˲,˲,˲c=^f8𵄋BKpA8lB"/՗{2dakx]EXW {.|-!|8˥!  -7‘pI_^!%Z_!xKCM.BASB@dED  !"#&$'%()*2-,.+0/3245169o:87;=><CAB@?q '36eL28BTCi܈ƒt *!0Pj(4M:b93Me̜3*%:Y֤Mm) #L2id!TCBݟ1 昒4SQ6@3Fac, $me_(RI[3v,{wBB1I8gf{ܛeڽ$me/BLRG ^҅bk">iKlb(fvB1I[ٻP&49cgKL(jP`ޅb}'m 9#]l_( E:5nʴ#pE(E(ґ5nɴ iK|XޅbMޅ"%n[U(8iKz?>i{sƗ.F^oݤEF}j/6[#jث52A`H 8gLҾFi5^ {F i i{3&i}}}I#p#pG}}}}'mO9O3ei &`_-le{'m#p$l- X^bnH:}:PL֭BKVwHGָPMҾOs}}}}y}}}}338g|}}}I[#p638𵄋BKpA8lB"/՗{2dakx]EXSYWATC.BAS> B@d*o 100 ' Key counter / (C)1988 SCC SHOJI H.S. computer club / JR-FORCE 110 ' 120 CLEAR ,&HB7FF:DEFINT A-Z:AD=&HD150 130 IF PEEK(&HB800)<>&H21 THEN BLOAD "JFSJx4",R ELSE A=&HB800:CALL A 140 IF PEEK(&HD0)<>&HDB THEN BLOAD "KCM" 150 STOP ON:ON STOP GOSUB *STP 160 CON=&HD0C0:COF=&HD0E0:CALL COF:KEY 5,CHR$(3)+"RUN"+CHR$(13) 170 FOR I=&HD100 TO &HD12F:POKE I,0:NEXT 180 CONSOLE 0,25,0,1:WIDTH 80,25:SCREEN 0,0:CLS 3 190 IF INP(&H40) AND 2 THEN SCREEN 1 ELSE SCREEN 2 200 POLL "AˑVEHb`ǂ [ 1988.09.20 JR-FORCE Presented ]" 210 PRINT:PRINT:POLL "PObԂ̘Aː𑪒肵܂B@pӂ͂łH" 220 PRINT:PRINT:POLL "gK[́AXy[XL[ƑJnłB" 230 OUT &H44,&H7:OUT &H45,0:OUT &H44,&HF 240 IF INP(&H45)<>&HFF OR INP(9)=191 THEN 250 ELSE 240 250 PRINT:PRINT CHR$(31):POLL "݃^CF x10msec.":BEEP 1:A=1^1:BEEP 0 260 FOR I=0 TO 31:A$=INKEY$:NEXT 270 CALL CON 280 CALL AD 290 CALL COF:LOCATE 12,7:PRINT "10";:BEEP 1:A=1^1:BEEP 0 300 LOCATE 0,10:POLL "I":PRINT 310 SP=PEEK(&HD1)*256+PEEK(&HD110):SP$=RIGHT$("0"+MID$(STR$(SP),2),5) 320 JA=PEEK(&HD113)*256+PEEK(&HD112):JA$=RIGHT$("0"+MID$(STR$(JA),2),5) 330 JB=PEEK(&HD115)*256+PEEK(&HD114):JB$=RIGHT$("0"+MID$(STR$(JB),2),5) 340 SC=SP+JA+JB: :SC$=RIGHT$("0"+MID$(STR$(SC),2),5) 350 SS=CINT(SC/10) :SS$=RIGHT$("0"+MID$(STR$(SS),2),5) 360 PRINT:POLL "f[^@Xy[XF"+SP$+"" 370 PRINT:POLL " gK`F"+JA$+"" 380 PRINT:POLL " gKaF"+JB$+"" 390 PRINT:POLL " - v -F"+SC$+"" 400 PRINT:POLL " F"+SS$+" / sec." 410 PRINT:PRINT:PRINT 420 READ A$:IF SC<50 THEN *MESS 430 READ A$:IF SC<80 THEN *MESS 440 READ A$:IF SC<120 THEN *MESS 450 READ A$:IF SC<230 THEN *MESS 460 READ A$:IF SC<350 THEN *MESS 470 READ A$:IF SC<450 THEN *MESS 480 READ A$:IF SC<550 THEN *MESS 490 READ A$: GOTO *MESS 500 DATA "傭Ƃ̂I","lɂȂ܂񂩁H","CƂB","lłB","t@~RlɂȂȂB","Q[Z^[r炵͂߂܂傤B","M_Ɛ߂܂B","nOI" 510 *STP 520 CLS 3:LOCATE 0,0 530 POLL "͎דƂ̂łB":PRINT 540 END 550 *MESS 560 POLL A$ 570 FOR I=0 TO 40:A$=INKEY$:NEXT 580 PRINT:PRINT:END A C9,E1,D1,C9,00,00,00,00,00,00,00,00,00,00,00,00 460 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,008𵄋BKpA8lB"