5REM *** Hi-Score *** 6REM by Zul Kahan (D4M) 7REM written 1988. 8REM submitted to 8BS 11/95 9REM 10ONERRORPROCEND:END 20MODE0:VDU19;4;0;19,7,3;0;:DIMG$(24) ,SC%(24) 25PRINTTAB(23,0)"! ! "'$ 0&$ 0&$ 0&1 £&1 £&$ 0&$" 30PRINTTAB(23,1)"+&- ) "&$ 2&1 ) ) ) +'3 +$ 2&1" 40PRINTTAB(23,2)"( ( ".$ "&3 2&$ 2&3 (2$ *&$ "&3":CH%=OPENUP"DATA":FORII% =1TO24:INPUT#CH%,G$(II%),SC%(II%):NEXT 50SP%=0:FORJJ%=1TO13STEP12:FORII%=0TO 11:AD%=JJ%+SP%:BD%=II%+JJ%:IFBD%<10SX%=5 ELSESX%=4 60PRINTTAB(AD%+SX%,II%+II%+4)STR$BD%" . "G$(BD%)TAB(35+AD%-LENSTR$SC%(BD%),II% +II%+4);SC%(BD%):NEXT:SP%=SP%+27:NEXT:PR OCQ 70PROCEND:END 75DEFPROCEND:CLOSE#CH%:VDU26:ENDPROC 80DEFPROCQ:VDU28,0,31,79,28:CLS:PRINT " Do you wish to update the table ? ";: A$=GET$:PRINTA$:IFA$="Y"ORA$="y"PROCC 85ENDPROC 90DEFPROCC:INPUT'" Enter the corresp onding number of the game "NG%:IFNG%<1OR NG%>24PROCQ:ELSEPROCN 95ENDPROC 100DEFPROCN:PRINT'" Enter the new Hi- score for "G$(NG%);:INPUT" "NS%:IFNS%>SC %(NG%)VDU26:PS%=NG%DIV13ELSECLS:PROCQ:EN DPROC 110IFPS%CF%=0:CF1%=1ELSECF%=-1:CF1%=0 120PRINTTAB(37*(1+PS%)-LENSTR$NS%+CF%+ CF1%,4+2*(NG%MOD13+CF%));NS%:SC%(NG%)=NS %:PROCQ 130PTR#CH%=0:FORII%=1TO24:PRINT#CH%,G$ (II%),SC%(II%):NEXT:ENDPROC