home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / COMPKARA.DSK / P20.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  41 lines
  1. 1  REM  (C) 1984 EDWARD BADASOV
  2. 2  REM  COMPETITION KARATE
  3. 5  ONERR  GOTO 19000
  4. 10  POKE 214,128: POKE 815,0: SPEED= 255:D$ =  CHR$(4):KP% =  -16384:H$ = "-----------": POKE  -16303,0: GOTO 12510
  5. 100  GOSUB 13000: PRINT D$"RUNP19,D1"
  6. 200  GOSUB 13000: PRINT D$"RUNP18,D1"
  7. 300  GOSUB 13000: PRINT D$"RUNP17,D1"
  8. 350  GOSUB 13000: PRINT D$"RUNP13,D1"
  9. 355  GOSUB 13000: PRINT D$"RUNP12,D1"
  10. 400  HOME : VTAB 12: HTAB 14: PRINT "(HAND SALUTE)":X% =  PEEK(43626): IF X% <1  OR X% >7  THEN X% = 6
  11. 401  POKE 1010,0: POKE 1011, INT((X% *256 +49152)/256): CALL  -1169: CALL 49152 +X% *256
  12. 500  POKE  -16368,0: POKE 6,46: POKE 7,3: CALL 768: RETURN 
  13. 1000  VTAB 5: HTAB 1: PRINT "[D]RIVES:"; PEEK(798);: HTAB 30: PRINT "[P]RINTER:"; PEEK(799): RETURN 
  14. 12510  POKE 34,4: HOME : IF  PEEK(1024) < >189  THEN  GOSUB 22000
  15. 12540  VTAB 7: HTAB 14: INVERSE : PRINT "  MAIN MENU  ": NORMAL : PRINT 
  16. 12570  VTAB 10: PRINT  TAB( 9)"[1]  ADMIT NEW STUDENT": PRINT : PRINT  TAB( 9)"[2]  WORKOUT IN THE DOJO": PRINT : PRINT  TAB( 9)"[3]  STAGE A TOURNAMENT": PRINT : PRINT  TAB( 9)"[4]  REVIEW TOP 10 FIGHTERS"
  17. 12625  PRINT : PRINT  TAB( 9)"[5]  USE PROGRAM UTILITIES": PRINT : PRINT  TAB( 9)"[6]  SAYONARA": GOSUB 1000
  18. 12690  VTAB 23: HTAB 9: GOSUB 500: PRINT "SELECT -> [ ]";: HTAB  PEEK(36) -1: GET Q$: PRINT Q$;:E =  RND( -( PEEK(78) + PEEK(79) *256)): ON  VAL(Q$) GOTO 100,200,300,350,355,400
  19. 12700  IF Q$ = "D"  THEN  GOSUB 12800: GOSUB 1000
  20. 12702  IF Q$ = "P"  THEN  GOSUB 12850: GOSUB 1000
  21. 12730  VTAB 22: HTAB 20: CALL  -868: GOTO 12690
  22. 12800 CF% = 1: POKE 798,(  NOT ( PEEK(798) -1)) +1: RETURN 
  23. 12850 CF% = 1: POKE 799,1 + PEEK(799): IF  PEEK(799) = 8  THEN  POKE 799,1
  24. 12851  RETURN 
  25. 13000  HOME : VTAB 12: HTAB 8: PRINT "ONE ETERNAL MOMENT PLEASE": GOSUB 40000: GOSUB 50000: RETURN 
  26. 19000  CALL 803
  27. 22000 L0$ = "========================================": TEXT : HOME : PRINT L0$: VTAB 3: PRINT L0$: VTAB 2: HTAB 3:A$ = "COMPETITIONKARATE": FOR I = 1 TO 17: FLASH : PRINT  MID$ (A$,I,1);: NORMAL : PRINT " ";: IF I = 11  THEN  PRINT "   ";
  28. 22070  NEXT : PRINT : VTAB 5: POKE 34,4: RETURN 
  29. 40000  IF   NOT CF%  THEN  RETURN 
  30. 40001  GOSUB 50000
  31. 40004  PRINT D$"UNLOCK UL.2,D1"
  32. 40005  PRINT D$"BSAVE UL.2,A768,L45"
  33. 40007  PRINT D$"LOCK UL.2"
  34. 40008  RETURN 
  35. 50000  ONERR  GOTO 50020
  36. 50010 SS% = 786: GOTO 50030
  37. 50020  CALL SS%: VTAB 24: PRINT "INSERT GAME DISK IN DRIVE 1 AND HIT KEY";: GOSUB 500: GET A$: VTAB 23: CALL  -958: PRINT 
  38. 50025  IF A$ =  CHR$(27)  THEN  CLEAR : GOTO 5
  39. 50030 SS% = 787: PRINT D$"VERIFYP20,D1"
  40. 50040  ONERR  GOTO 19000
  41. 50043  RETURN