home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / STRIPPKR.DSK / ENDGAME.bas < prev    next >
BASIC Source File  |  2014-09-09  |  712b  |  16 lines
  1. 10  DIM G(50)
  2. 20  GOTO 100
  3. 40  FOR G = 1 TO  LEN(U$):MM$ =  MID$ (U$,G,1): IF MM$ = "$"  THEN MM$ = "<"
  4. 44  IF MM$ = ","  THEN MM$ = ";"
  5. 45  IF MM$ = " "  THEN G(G) = O: GOTO 48
  6. 46 G(G) =  ASC(MM$) -47
  7. 48  NEXT : FOR G = 1 TO  LEN(U$):X = X +6: IF G(G) = O  THEN 55
  8. 53  IF DX  THEN  XDRAW G(G) AT X,Y: GOTO 55
  9. 54  DRAW G(G) AT X,Y
  10. 55  NEXT :DX = O: RETURN 
  11. 100  CALL 752: CALL 972
  12. 110  GOSUB 900
  13. 120 X = 0:Y = 144:U$ = "THIS IS EMBARASSING": GOSUB 40: FOR I = 1 TO 3000: NEXT : GOSUB 900:X = 0:U$ = "HIT THE SPACE BAR WHEN YOU ARE DONE LOOKING": GOSUB 40
  14. 130  IF  PEEK( -16384) = 160  THEN  PRINT  CHR$(4);"RUN INTR"
  15. 140  GOTO 130
  16. 900  HCOLOR= 0: FOR J = 144 TO 149: HPLOT 0,J TO 279,J: NEXT : HCOLOR= 3: RETURN