home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / UTILS.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  20 lines
  1. 10  ONERR  GOTO 100
  2. 100 NP = 13
  3. 110 D$ =  CHR$(4): TEXT : HOME : INVERSE : PRINT  SPC( 120): VTAB 2: HTAB 12: PRINT "DISK UTILITY PROGRAMS": NORMAL : FOR X = 4 TO 23: VTAB X: HTAB 1: PRINT "*";: HTAB 40: PRINT "*";: NEXT : VTAB 4: FOR X = 1 TO 40: HTAB X: PRINT "*";: NEXT 
  4. 120  POKE  -16368,0
  5. 130  VTAB 23: FOR X = 1 TO 40: HTAB X: PRINT "*";: NEXT 
  6. 140  DATA                  LOCKSMITH 4.3,LOCKSMITH 4.1,FREE,COPY II PLUS 3.3,NIBBLES AWAY II,APPLE COPY,MEMORY PAGE EDITOR 1.3,FID,INSPECTOR 4.0,BACKITUP PLUS,CLONE,SUPER DISK COPY,FREE
  7. 145  FOR X = 6 TO 20  STEP 2: READ ST$: VTAB X: HTAB 6: PRINT ST$: NEXT 
  8. 147 XM = 6 +2 *(NP -9)
  9. 150  FOR X = 6 TO XM  STEP 2: READ ST$: VTAB X: HTAB 24: PRINT ST$: NEXT 
  10. 160  RESTORE : FOR X = 6 TO 20  STEP 2: READ ST$: VTAB X: HTAB 6: INVERSE : PRINT ST$;: NORMAL : GOSUB 190: VTAB X: HTAB 6: NORMAL : PRINT ST$: NEXT 
  11. 170 FL = 1: FOR X = 6 TO XM  STEP 2: READ ST$: VTAB X: HTAB 24: INVERSE : PRINT ST$;: NORMAL : GOSUB 190: VTAB X: HTAB 24: NORMAL : PRINT ST$: NEXT :FL = 0: GOTO 160
  12. 180  END 
  13. 190 Y =  PEEK( -16384): IF Y <127  THEN 190
  14. 200  POKE  -16368,0: IF Y < >141  THEN  RETURN 
  15. 210  DIM R$(NP)
  16. 220  DATA  BRUNLOCKSMITH 4.3,BRUNLOCKSMITH 4.1,RUNHELLO,BRUNCOPYII+3.3,BRUNNIBBLES AWAY II,RUNCOPYA,BRUNMPE 1.3,BRUNFID,BRUNINSPECTOR 4.0,BRUNBACKITUP II PLUS,BRUNCLONE,BRUN SUPER DISK COPY V3.6,RUNHELLO
  17. 225  RESTORE : FOR Y = 1 TO NP: READ ST$: NEXT 
  18. 250  IF FL  THEN X = X +16
  19. 260  FOR Y = 6 TO X  STEP 2: READ ST$: NEXT : PRINT :Z = X/2 -2: PRINT D$;ST$
  20. 270  END