home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / COMPKARA.DSK / P14.bas < prev    next >
BASIC Source File  |  2014-09-09  |  4KB  |  69 lines
  1. 10  REM  (C) 1984 EDWARD BADASOV
  2. 11  REM  COMPETITION KARATE
  3. 1000  ONERR  GOTO 1140
  4. 1010  GOSUB 1380: GOSUB 1160: IF EL% <0  THEN  GOTO 10000
  5. 1030  GOSUB 1230
  6. 1031  GOSUB 2100: ONERR  GOTO 1140
  7. 1040  PRINT D$"RUNP20,D1"
  8. 1050  POKE KB%,0: POKE 6,46: POKE 7,3: CALL SR%: RETURN 
  9. 1070  FOR J = 3 TO 1  STEP  -1: FOR I = 100 TO 1  STEP  -5: POKE 6,I +(25 *J): POKE 7,5: CALL SR%: NEXT I,J: RETURN 
  10. 1080  FOR I = 10 TO 255  STEP 20: FOR J = 1 TO 3: POKE 6,I: POKE 7,5: CALL SR%: NEXT J,I: RETURN 
  11. 1090  FOR J = 1 TO 3: FOR I = 255 TO 1  STEP  -40: POKE 6,I: POKE 7,3: CALL SR%: NEXT I,J: RETURN 
  12. 1100  FOR I = 1 TO 5: POKE 6,5: POKE 7,2: CALL SR%: NEXT : RETURN 
  13. 1110  FOR P = 5 TO 255  STEP 25: POKE 6,P: POKE 7,30: CALL SR%: GOSUB 1100: NEXT : RETURN 
  14. 1120  GOSUB 1070: GOSUB 1080: GOSUB 1090: RETURN 
  15. 1140  CALL 787: POKE KB%,0: IF  PEEK(222) = 255  THEN  CALL 803
  16. 1145  FLASH : PRINT  CHR$(7)" DISK ERROR ";: NORMAL : PRINT " CHECK SETUP AND STRIKE KEY";: GET A$: HTAB 1: CALL  -868: VTAB  PEEK(37): PRINT : RESUME 
  17. 1160  GOSUB 2100: ONERR  GOTO 1140
  18. 1165  PRINT D$"OPENMT,D1"
  19. 1170  PRINT D$"READMT"
  20. 1180  INPUT EL%,X%,A1$,A2$,SR%,RR%
  21. 1190  PRINT D$"DELETEMT"
  22. 1200  PRINT D$"CLOSE"
  23. 1206  PRINT D$"OPENGC"
  24. 1207  PRINT D$"DELETEGC"
  25. 1208  PRINT D$"OPENSG"
  26. 1209  PRINT D$"CLOSE"
  27. 1210  RETURN 
  28. 1230  GOSUB 2100: ONERR  GOTO 1140
  29. 1250  PRINT D$"BLOAD UR.2,A8192,D1"
  30. 1260  CALL 37544: VTAB 23: HTAB (40 - LEN(A1$) +1)/2: PRINT "<CTRL-I>";
  31. 1265  FOR I = 1 TO 750: NEXT : FOR I = 1 TO  LEN(A1$): PRINT  MID$ (A1$,I,1);: POKE 6,8: POKE 7,85: CALL SR%: NEXT : FOR I = 1 TO 750: NEXT 
  32. 1270  GOSUB 1120: POKE KB%,0: VTAB 17: HTAB 30: PRINT "STRIKE KEY";: GET A$
  33. 1271  PR# 0
  34. 1272  IN# 0
  35. 1273  CALL 1002
  36. 1280  TEXT : HOME : GR : HOME : SPEED= 10: PRINT "FOR THE RUNNER UP, "A2$",": PRINT "WE PRESENT THE...": SPEED= 255
  37. 1285  GOSUB 2100: ONERR  GOTO 1140
  38. 1290  PRINT D$"BLOADRU." INT( RND(1) *4 +1)",D1"
  39. 1300  HTAB 1: VTAB 22: SPEED= 10: PRINT "..."PH$( INT( RND(0) *4 +1))"!!": VTAB 24: SPEED= 255: GOSUB 1110: GOSUB 1090: GOSUB 1320: RETURN 
  40. 1320  VTAB 24: HTAB 30: INVERSE : PRINT "STRIKE KEY";: NORMAL : GET A$: HOME : PRINT : RETURN 
  41. 1380 D$ =  CHR$(4):RC$(0) = " HAS WON THE CHALLENGE,":RC$(1) = "THE WORLD OF COMPETITION KARATE BIDS A  FOND FAREWELL TO ":RC$(2) = "ENJOY YOUR RETIREMENT!!":SR% = 768:KB% =  -16368
  42. 1390  DIM PH$(4): FOR I = 1 TO 4: READ PH$(I): NEXT : RETURN 
  43. 1430  DATA RUBBER DUCKY,FIVE-PIECE BARBEQUE SET,AUTOGRAPHED PHOTO OF YOUR OPPONENT,FOAM MARTIAL ARTS WEAPONS
  44. 2100  ONERR  GOTO 2110
  45. 2105 SS% = 787: GOTO 2120
  46. 2110  CALL SS%: VTAB 24: PRINT "INSERT GAME DISK IN DRIVE 1 AND HIT KEY";: GOSUB 1050: GET A$: VTAB 23: CALL  -958: PRINT 
  47. 2120  PRINT D$"VERIFYP20,D1"
  48. 2130  RETURN 
  49. 10000  POKE 34,4: VTAB 9: SPEED= 120: IF   NOT X%  THEN 10015
  50. 10005  INVERSE : PRINT A1$;: NORMAL : PRINT RC$(0): PRINT "AND REMAINS INSTRUCTOR OF THE DOJO.": GOSUB 1120: PRINT : GOSUB 10025: GOSUB 10050: GOTO 1031
  51. 10015  INVERSE : PRINT A1$;: NORMAL : PRINT RC$(0): PRINT "AND WILL NOW BECOME THE NEW INSTRUCTOR  OF THE DOJO.": PRINT : PRINT "CONGRATULATIONS!!": GOSUB 1120
  52. 10020  SPEED= 120: VTAB 15: GOSUB 10025: GOSUB 10050: GOSUB 10300: GOSUB 10200:INST$(RR%) = A1$:IA%(RR%,4) = 0: GOSUB 10230: GOTO 1031
  53. 10025  PRINT : PRINT RC$(1)A2$".": PRINT : PRINT RC$(2): SPEED= 255: RETURN 
  54. 10050  VTAB 24: HTAB 10: INVERSE : PRINT "STRIKE KEY WHEN READY";: NORMAL : GOSUB 1050: GET A$: HOME : PRINT : RETURN 
  55. 10200  GOSUB 2100: ONERR  GOTO 1140
  56. 10205  PRINT D$"OPENUL.4,D1"
  57. 10206  PRINT D$"READUL.4"
  58. 10207  FOR I = 1 TO 5: INPUT INST$(I): FOR J = 1 TO 4: INPUT IA%(I,J): NEXT J,I
  59. 10208  PRINT D$"CLOSE"
  60. 10209  RETURN 
  61. 10230  GOSUB 2100: ONERR  GOTO 1140
  62. 10231  PRINT D$"UNLOCKUL.4,D1"
  63. 10235  PRINT D$"OPENUL.4,D1"
  64. 10236  PRINT D$"WRITEUL.4"
  65. 10238  FOR I = 1 TO 5: PRINT INST$(I): FOR J = 1 TO 4: PRINT IA%(I,J): NEXT J,I
  66. 10240  PRINT D$"CLOSE"
  67. 10242  PRINT D$"LOCKUL.4,D1"
  68. 10245  RETURN 
  69. 10300  HOME : VTAB 12: HTAB 8: PRINT "ONE ETERNAL MOMENT PLEASE": RETURN