home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / COMPKARA.DSK / P13.bas < prev    next >
BASIC Source File  |  2014-09-09  |  5KB  |  77 lines
  1. 10  REM  (C) 1984 EDWARD BADASOV
  2. 11  REM  COMPETITION KARATE
  3. 30  ONERR  GOTO 19000
  4. 40  GOSUB 30000: GOSUB 22100
  5. 51  GOSUB 24000: GOSUB 22105: GOSUB 23000: GOSUB 10000: GOSUB 10100
  6. 57  GOSUB 23100: GOSUB 300
  7. 58  PRINT D$"RUN P20,D1"
  8. 300  ONERR  GOTO 310
  9. 305 SS% = 786: IF  PEEK(798) = 2  OR   NOT DF%  THEN 320
  10. 310  CALL SS%: VTAB 24: PRINT "INSERT GAME DISK IN DRIVE 1 AND HIT KEY";: GOSUB 2000: GET A$: VTAB 23: CALL  -958: PRINT 
  11. 320 DF% = 0:SS% = 787: PRINT D$"VERIFY P20,D1"
  12. 330  RETURN 
  13. 1000 C$ = "": GOSUB 2000: PRINT "["CU$;
  14. 1010  IF  PEEK(KP%) <128  THEN 1010
  15. 1015  GET A$: IF A$ =  CHR$(13)  THEN  PRINT : RETURN 
  16. 1020  IF A$ =  CHR$(27)  THEN : POP : GOTO 10235
  17. 1025  IF  LEN(C$) = 1  AND A$ = BS$  THEN  PRINT A$SP$A$A$CU$;
  18. 1030  IF A$ <SP$  AND A$ < >BS$  THEN  PRINT S$;: GOTO 1010
  19. 1035  IF  LEN(C$) <2  AND A$ = BS$  THEN C$ = "": GOTO 1010
  20. 1037  IF  LEN(C$) >75  AND A$ < >BS$  THEN  PRINT S$;: GOTO 1010
  21. 1045 C$ = C$ +A$
  22. 1050  IF A$ = BS$  THEN  PRINT A$SP$A$A$CU$;:C$ =  LEFT$(C$, LEN(C$) -2): GOTO 1010
  23. 1055  PRINT BS$A$CU$;: GOTO 1010
  24. 2000  POKE KB%,0: POKE 6,46: POKE 7,3: CALL SD%: RETURN 
  25. 10000  VTAB 9: FOR I = 1 TO 10: IF I <4  THEN  PRINT 
  26. 10002  PRINT I *(I <10)") ";: IF T1$(V%,I,1) = ""  THEN  PRINT : GOTO 10040
  27. 10005  PRINT  LEFT$(T1$(V%,I,1),7);: HTAB 13: PRINT T1$(V%,I,3);: HTAB 16: PRINT "- ";: PRINT T1$(V%,I,4);: IF T1$(V%,I,5) = "1000"  THEN  HTAB 21: PRINT "1.000";: GOTO 10020
  28. 10018  HTAB 22: PRINT "."T1$(V%,I,5);
  29. 10020  HTAB 28: PRINT T1$(V%,I,2);: HTAB 36: PRINT  LEFT$(IN$( VAL(T1$(V%,I,6))),5);: IF FLAG%  THEN  PRINT 
  30. 10040  NEXT : RETURN 
  31. 10100  POKE KB%,0: VTAB 24: HTAB 9: INVERSE : PRINT " [ANY KEY]=EXIT  [P]RINT";: NORMAL : GOSUB 2000: GET A$: IF A$ = "P"  THEN  GOTO 10200
  32. 10105  POP : POKE 34,6: VTAB 4: HTAB 1: CALL  -868: GOTO 51
  33. 10200  POKE 34,21: HOME : INVERSE : PRINT " ENTER [BANNER MESSAGE]: ": NORMAL : GOSUB 1000
  34. 10205  HOME : INVERSE : PRINT : PRINT " READY ";: NORMAL : PRINT "  [ANY KEY]=PRINT  [ESC]=EXIT ";: GOSUB 2000: GET A$: IF A$ =  CHR$(27)  THEN 10235
  35. 10220  HOME : POKE 34,23: VTAB 24:FLAG% = 1
  36. 10221  PRINT : PRINT D$"PR#1"
  37. 10225  GOSUB 11000: FOR I = 1 TO 26: PRINT : NEXT 
  38. 10230  PRINT D$"PR#0"
  39. 10235  HOME : POKE 34,6:FLAG% = 0: GOTO 10100
  40. 11000  PRINT L0$L0$: PRINT "   C O M P E T I T I O N    K A R A T E  -  T O P    1 0    F I G H T E R S": PRINT L0$L0$
  41. 11004  HTAB 31: PRINT "[ ";V$(V%);" DIVISION ]": PRINT : PRINT C$: PRINT : PRINT 
  42. 11010  PRINT "   NAME             W   - L     PCT   RANK     AVG    1ST  2ND  INSTRUCTOR": PRINT "--------------------------------------------------------------------------------"
  43. 11025  FOR I = 1 TO 10: PRINT : PRINT I *(I <10);") ";: IF T1$(V%,I,1) = ""  THEN  PRINT : GOTO 11065
  44. 11035  PRINT  LEFT$(T1$(V%,I,1),15);: PRINT  TAB( 21);T1$(V%,I,3);: PRINT  TAB( 25);"- ";: PRINT T1$(V%,I,4);: IF T1$(V%,I,5) = "1000"  THEN  PRINT  TAB( 31);"1.000";: GOTO 11055
  45. 11050  PRINT  TAB( 32)"."T1$(V%,I,5);
  46. 11055  PRINT  TAB( 39)T1$(V%,I,2);: PRINT  TAB( 8)"("T1$(V%,I,7)")";: PRINT  TAB( 15)T1$(V%,I,8);: PRINT  TAB( 20)T1$(V%,I,9);: PRINT  TAB( 25) LEFT$(IN$( VAL(T1$(V%,I,6))),15)
  47. 11065  PRINT 
  48. 11070  NEXT : RETURN 
  49. 19000  CALL 787: POKE KB%,0: IF  PEEK(222) = 5  THEN  PRINT : PRINT D$"CLOSE": RETURN 
  50. 19001  IF  PEEK(222) = 255  THEN  CALL 803
  51. 19002  FLASH : PRINT  CHR$(7)" DISK ERROR ";: NORMAL : PRINT " CHECK SETUP AND STRIKE KEY";: GET A$: HTAB 1: CALL  -868: VTAB  PEEK(37): PRINT : RESUME 
  52. 22100  REM 
  53. 22103  VTAB 5: HTAB 12: INVERSE : PRINT " TOP 10 FIGHTERS ": NORMAL : POKE 34,6: RETURN 
  54. 22105  VTAB 7: PRINT "   NAME     W  - L    PCT  RANK    INST": PRINT "----------------------------------------"
  55. 22107  POKE 34,8: RETURN 
  56. 23000  GOSUB 300: ONERR  GOTO 19000
  57. 23004  PRINT D$"OPEN TOP10."V$(V%)",D1"
  58. 23005  PRINT D$"READ TOP10."V$(V%)
  59. 23010  FOR I = 1 TO 10: FOR J = 1 TO 9: INPUT T1$(V%,I,J): NEXT J,I
  60. 23020  PRINT D$"CLOSE"
  61. 23025  RETURN 
  62. 23100  POKE 34,4: HOME : VTAB 12: HTAB 8: PRINT "ONE ETERNAL MOMENT PLEASE": RETURN 
  63. 23200  GOSUB 300: ONERR  GOTO 19000
  64. 23205  PRINT D$"OPEN UL.4,D1"
  65. 23210  PRINT D$"READ UL.4"
  66. 23215  FOR I = 1 TO 5: INPUT IN$(I): FOR J = 1 TO 4: INPUT IABIL%(I,J): NEXT J,I
  67. 23220  PRINT D$"CLOSE"
  68. 23225  RETURN 
  69. 24000  HOME : VTAB 9: POKE KB%,0
  70. 24005  FOR I = 0 TO 3: HTAB 11: PRINT "["I +1"]  "V$(I)" DIVISION": PRINT : NEXT : HTAB 11: PRINT "[5]  SAYONARA"
  71. 24010  VTAB 21: HTAB 9: PRINT "SELECT -> [ ]";: GOSUB 2000: HTAB  PEEK(36) -1: GET A$: PRINT A$: IF A$ =  CHR$(27)  THEN A$ = "5"
  72. 24011  IF A$ <"1"  OR A$ >"5"  THEN  VTAB 21: HTAB 19: CALL  -868: GOTO 24010
  73. 24012  IF A$ = "5"  THEN  POP : GOTO 57
  74. 24013 V% =  VAL(A$) -1
  75. 24014  HOME : VTAB 4: INVERSE : PRINT V$(V%): NORMAL : VTAB 9: RETURN 
  76. 30000 SP$ = " ":CU$ = "]":BS$ =  CHR$(8):D$ =  CHR$(4):FLAG% = 0:DF% = 0:SD% = 768: GOSUB 23200:KB% =  -16368:KP% =  -16384:S$ =  CHR$(7):L0$ = "========================================": DIM T1$(3,10,9),V$(3): FOR I = 0 TO 3: READ V$(I): NEXT : RETURN 
  77. 40000  DATA  WHITE,BLUE,BROWN,BLACK