home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / REARGUAR.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  25 lines
  1. 1 F = 4
  2. 3 D$ =  CHR$(4): ONERR  GOTO 6
  3. 4  DIM A$(10),F$(10): FOR A = 0 TO 9:A$(A) =  CHR$(176 +A): NEXT A:A$(10) = "A":K = 2 *(11 -F)
  4. 5  HOME : INVERSE : FOR I = 0 TO 20 -K: INVERSE : PRINT "]";: HTAB 40: PRINT "[";: NEXT I: NORMAL : GOTO 7
  5. 6  NORMAL : HOME : END 
  6. 7  FOR A = 0 TO F -1: READ F$(A): NEXT A
  7. 8  FOR A = 0 TO F -1: VTAB (2 *A) +1: HTAB 5: PRINT " "A$(A)" > "F$(A): NEXT A
  8. 9  VTAB 24 -K: HTAB 2: PRINT " => ";: FLASH : PRINT "?";: NORMAL : PRINT "   PRESS A NUMBER < 0-";: IF F <11  THEN  PRINT (F -1)" >";: GOTO 11
  9. 10  PRINT "A >";
  10. 11  FOR I = 1 TO 2 *F  STEP 2: VTAB I: HTAB 6: INVERSE 
  11. 12  PRINT A$( INT((I -1)/2)): NORMAL : FOR D = 1 TO 80: NEXT D: VTAB I: HTAB 6: PRINT A$( INT((I -1)/2)): NEXT I
  12. 13 Z =  PEEK( -16384) -128: POKE  -16368,0
  13. 14  IF Z = 32  THEN  TEXT : HOME : END 
  14. 15  IF Z <0  THEN 11
  15. 16  IF F >10  THEN  IF Z = 65  THEN Z = 58: GOTO 18
  16. 17  IF Z <48  OR Z >47 +F  THEN 11
  17. 18 Z = Z -48: HTAB 2:G = 23 -K: VTAB (G -1): PRINT "                                 ";: FOR I = G TO Z *2 +1  STEP  -1: VTAB I: HTAB 3: PRINT "=>";: HTAB 3: VTAB I +1: PRINT "  ";: FOR D = 1 TO 35: NEXT : NEXT 
  18. 19  HTAB 6: VTAB Z *2 +1: FLASH : PRINT A$(Z);: NORMAL : VTAB G +1: HTAB 6: PRINT "    ";: INVERSE : PRINT "   PROGRAM  LOADING   ";: NORMAL 
  19. 20  VTAB F *2 +2: PRINT 
  20. 21  ON Z +1 GOTO 22,23,24,25,26,27,28,29,30,31,32
  21. 22  PRINT D$;"BRUN ";F$(0): END 
  22. 23  PRINT D$;"BRUN ";F$(1): END 
  23. 24  PRINT D$;"BRUN ";F$(2): END 
  24. 25  PRINT D$;"BRUN ";F$(3): END 
  25. 33  DATA  FRAZZLE,HIGH ORBIT,REARGUARD,SPY'S DEMISE