home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / STRIPPKR.DSK / INTR.bas < prev    next >
BASIC Source File  |  2014-09-09  |  6KB  |  103 lines
  1. 5  ONERR  GOTO 9000
  2. 6  TEXT : HOME : IF  PEEK(104) < >96  THEN  POKE 104,96: POKE 24576,0: PRINT  CHR$(4);"RUN INTR"
  3. 7  HTAB 14: PRINT "[IT'S CRACKED]": HTAB 7: PRINT "STRIP POKER (C) 1982 ARTWORX": HTAB 5: FLASH : PRINT " NO THANKS TO THE COMPUTER CON!!": NORMAL 
  4. 8  PRINT  CHR$(4);"BLOAD ER"
  5. 9  PRINT  CHR$(4);"BLOAD ALPH2"
  6. 10  PRINT  CHR$(4);"BLOAD SUIT"
  7. 11  PRINT  CHR$(4);"BLOAD LETRS"
  8. 12  PRINT  CHR$(4),"BLOAD ZIP"
  9. 14  PRINT  CHR$(4);"BLOAD SUZ"
  10. 15  PRINT  CHR$(4);"BLOAD SANDM"
  11. 16 T =  INT(20 * RND(1) +1): FOR I = 1 TO T:TT =  RND(1): NEXT 
  12. 19  DIM G(50)
  13. 20  GOTO 100
  14. 40  FOR G = 1 TO  LEN(U$):MM$ =  MID$ (U$,G,1): IF MM$ = "$"  THEN MM$ = "<"
  15. 41  IF  ASC(MM$) = 32  THEN 45
  16. 42  IF  ASC(MM$) <48  OR  ASC(MM$) >90  THEN 4000
  17. 44  IF MM$ = ","  THEN MM$ = ";"
  18. 45  IF MM$ = " "  THEN G(G) = O: GOTO 48
  19. 46 G(G) =  ASC(MM$) -47
  20. 48  NEXT : FOR G = 1 TO  LEN(U$):X = X +7: IF G(G) = O  THEN 55
  21. 49  IF X >273  THEN X = 273
  22. 54  DRAW G(G) AT X,Y
  23. 55  NEXT : RETURN 
  24. 100  HGR : POKE 232,0: POKE 233,9: ROT= 0: SCALE= 10: HCOLOR= 3
  25. 103 U = 500
  26. 105  POKE  -16302,0
  27. 106  PRINT  CHR$(4);"BLOAD IFACE"
  28. 110  FOR I = 5 TO 1  STEP  -1: SCALE= I: XDRAW 18 AT 135,20: XDRAW 35 AT 142,20: XDRAW 37 AT 149,20: XDRAW 40 AT 156,20: XDRAW 32 AT 163,20: XDRAW 35 AT 170,20: XDRAW 41 AT 177,20
  29. 120  IF I = 1  THEN 150
  30. 130  XDRAW 18 AT 135,20: XDRAW 35 AT 142,20: XDRAW 37 AT 149,20: XDRAW 40 AT 156,20: XDRAW 32 AT 163,20: XDRAW 35 AT 170,20: XDRAW 41 AT 177,20: NEXT 
  31. 150 T = 189:A = 33: GOSUB 1000:A = 35:T = 196: GOSUB 1000:T = 203:A = 22: GOSUB 1000:A = 36:T = 210: GOSUB 1000:A = 22:T = 217: GOSUB 1000:T = 224:A = 31: GOSUB 1000:A = 37:T = 231: GOSUB 1000:A = 36:T = 238: GOSUB 1000
  32. 155  POKE 233,16
  33. 160  FOR I = 1 TO 5: XDRAW I AT 18 *I +120,40: NEXT : FOR I = 5 TO 9: XDRAW I AT 18 *I +71,60: NEXT 
  34. 172  POKE 233,25: FOR I = 14 TO 17: XDRAW I AT (I -13) *20 +130,90: NEXT : POKE 233,9
  35. 190  POKE 233,09:X = 120:Y = 110:U$ = "BY ROGER HARNISH": GOSUB 40:X = 120:Y = 127:U$ = "GRAPHICS BY": GOSUB 40:X = 120:Y = 134:U$ = "JOANNE ADAMS": GOSUB 40:X = 120:Y = 145:U$ = "COPYRIGHT 1982": GOSUB 40
  36. 191  POKE 230,64:X = 22:Y = 154:U$ = "MELISSA": GOSUB 40:X = 194:U$ = "SUZI": GOSUB 40:X = 0:Y = 173:U$ = "ENTER PLAYER NAME AND RETURN  ": GOSUB 40
  37. 192  POKE 230,32:X = 20:Y = 179:U$ = "PRESS SPACE BAR TO SEE OPPONENTS": GOSUB 40: POKE 230,64:X = 208:Y = 173
  38. 193  FOR I = 1 TO U: IF  PEEK( -16384) = 160  THEN 196
  39. 194  NEXT 
  40. 196  POKE  -16299,0: GOTO 2000
  41. 198  FOR J = 1 TO XX:Z$(J) =  CHR$(A(J) -128):N$ = N$ +Z$(J): NEXT : PRINT  CHR$(4);"VERIFY";N$: HGR2 : HGR :X = 0:Y = 100:U$ = "INSERT MASTER DISK IF NECESSARY": GOSUB 40
  42. 199 X = 0:Y = 110:U$ = "AND THEN PRESS THE SPACE BAR": GOSUB 40
  43. 200  IF  PEEK( -16384) = 160  THEN  POKE  -16368,0: GOTO 206
  44. 205  GOTO 200
  45. 206  PRINT  CHR$(4);"OPEN PLYR": PRINT  CHR$(4);"WRITE PLYR": PRINT N$: PRINT  CHR$(4);"CLOSE"
  46. 207  PRINT  CHR$(4);"DELETE PLYR": PRINT  CHR$(4);"OPEN PLYR": PRINT  CHR$(4);"WRITE PLYR": PRINT N$: PRINT  CHR$(4);"CLOSE"
  47. 208  PRINT  CHR$(4);"BLOAD SD"
  48. 209  PRINT  CHR$(4);"BLOAD DECK"
  49. 210  PRINT  CHR$(4);"RUN SP1"
  50. 220  END 
  51. 1000  CALL 592: FOR I = 266 TO T  STEP  -7:X = I: XDRAW A AT X,20: IF I <T +1  THEN 1020
  52. 1010  XDRAW A AT X,20: NEXT 
  53. 1020  RETURN 
  54. 2000  GOSUB 3000:XX = 0: POKE  -16300,0: GOTO 193
  55. 2010 U$ =  CHR$(A(1) -128): GOSUB 40: GOSUB 3010:XX = 0: POKE  -16300,0: GOTO 193
  56. 2020 U$ =  CHR$(A(2) -128): GOSUB 40: GOSUB 3020:XX = 0: POKE  -16300,0: GOTO 193
  57. 2030  IF A(3) = 141  THEN 198
  58. 2032 U$ =  CHR$(A(3) -128): GOSUB 40
  59. 2035  GOSUB 3030:XX = 0: POKE  -16300,0: GOTO 193
  60. 2040  IF A(4) = 141  THEN 198
  61. 2042 U$ =  CHR$(A(4) -128): GOSUB 40
  62. 2045  GOSUB 3040:XX = 0: POKE  -16300,0: GOTO 193
  63. 2050  IF A(5) = 141  THEN 198
  64. 2052 U$ =  CHR$(A(5) -128): GOSUB 40
  65. 2055  GOSUB 3050:XX = 0: POKE  -16300,0: GOTO 193
  66. 2060  IF A(6) = 141  THEN 198
  67. 2062 U$ =  CHR$(A(6) -128): GOSUB 40
  68. 2065  GOSUB 3060:XX = 0: POKE  -16300,0: GOTO 193
  69. 2070  IF A(7) = 141  THEN 198
  70. 2072 U$ =  CHR$(A(7) -128): GOSUB 40
  71. 2075  GOSUB 3070:XX = 0: POKE  -16300,0: GOTO 193
  72. 2080  IF A(8) = 141  THEN 198
  73. 2082 U$ =  CHR$(A(8) -128): GOSUB 40: GOTO 198
  74. 3000 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(1) =  PEEK( -16384): IF A(1) >127  THEN  POP : GOTO 2010
  75. 3005  NEXT : RETURN 
  76. 3010 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(2) =  PEEK( -16384): IF A(2) >127  THEN  POP : GOTO 2020
  77. 3015  NEXT : RETURN 
  78. 3020 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(3) =  PEEK( -16384): IF A(3) >127  THEN 2030
  79. 3025  NEXT : RETURN 
  80. 3030 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(4) =  PEEK( -16384): IF A(4) >127  THEN  POP : GOTO 2040
  81. 3035  NEXT : RETURN 
  82. 3040 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(5) =  PEEK( -16384): IF A(5) >127  THEN  POP : GOTO 2050
  83. 3045  NEXT : RETURN 
  84. 3050 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(6) =  PEEK( -16384): IF A(6) >127  THEN  POP : GOTO 2060
  85. 3055  NEXT : RETURN 
  86. 3060 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(7) =  PEEK( -16384): IF A(7) >127  THEN  POP : GOTO 2070
  87. 3065  NEXT : RETURN 
  88. 3070 XX = XX +1: POKE  -16368,0: FOR I = 1 TO U:A(8) =  PEEK( -16384): IF A(8) >127  THEN  POP : GOTO 2080
  89. 3075  NEXT : RETURN 
  90. 4000  TEXT : HOME : PRINT "YOU CAN'T BACK SPACE TO CORRECT         SPELLING.  PLEASE PRESS THE ESCAPE KEY  TO START AGAIN."
  91. 4010  IF  PEEK( -16384) = 155  THEN  POKE 230,64: HCOLOR= 0: FOR I = 173 TO 179: HPLOT 208,I TO 279,I: NEXT : POKE 230,32: POKE  -16304,0:XX = 0:N$ = "": HCOLOR= 3: GOTO 106
  92. 4020  GOTO 4010
  93. 9000  TEXT : HOME :R =  PEEK(222): CALL 640
  94. 9011  IF R = 4  THEN  PRINT "THIS PROGRAM CANNOT BE RUN ON A WRITE   PROTECTED DISK.  PLEASE REMOVE THE      WRITE PROTECTION PRESS RESET.":FP
  95. 9015  IF R = 6  THEN  PRINT "THE NAME YOU TYPED IN IS NOT A FILE ON  THIS DISK.  THE NAME YOU TYPED IN WAS   ";N$
  96. 9016  IF R = 6  THEN  PRINT : PRINT "YOU CAN REENTER THE NAME BY PRESSING    THE ESCAPE KEY": GOTO 9020
  97. 9017  IF R = 255  THEN  PRINT "THIS IS THE CTRL C INTERRUPT.   IT WILL BE USED AS THE MODESTY KEY LATER IN THE PROGRAM.  FOR NOW, PRESS THE ESCAPE KEY TO REENTER THE PROGRAM.": GOTO 9020
  98. 9018  PRINT "ERROR!  MAKE SURE DISK IS NOT WRITE     PROTECTED.  PRESS RESET TO START        OVER AGAIN."
  99. 9019  GOTO 9998
  100. 9020  IF  PEEK( -16384) = 155  THEN  POKE 230,64: HCOLOR= 0: FOR I = 173 TO 179: HPLOT 208,I TO 279,I: NEXT : POKE 230,32: POKE  -16304,0:XX = 0:N$ = "": HCOLOR= 3: GOTO 106
  101. 9050  GOTO 9020
  102. 9998 FP
  103. 9999  GOTO 9998