home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 131 / SGDS 131.2mg / SDGS.131 / SDB131 / B / IOSILVER (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-08-24  |  519 b   |  11 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  GOTO 20000
  2. 6100  HTAB (40 - LEN(A$))/2: PRINT A$: RETURN 
  3. 20000  TEXT : HOME : SPEED= 255
  4. 20005  VTAB 6:A$ = "I.O. SILVER": GOSUB 6100:A$ = "IS THE COPYRIGHTED WORK OF": GOSUB 6100
  5. 20010 A$ = "SOFTDISK PUBLISHING.": GOSUB 6100:A$ = "IT IS NOT MEANT FOR DISTRIBUTION": GOSUB 6100:A$ = "AS PUBLIC DOMAIN OR SHAREWARE.": GOSUB 6100
  6. 20020  PRINT :A$ = "FOR HELP, INFORMATION OR TO": GOSUB 6100:A$ = "REPORT ILLEGAL DISTRIBUTION,": GOSUB 6100
  7. 20030 A$ = "CALL SOFTDISK AT:": GOSUB 6100:A$ = "1-800-831-2694 OR": GOSUB 6100:A$ = "1-800-221-8718.": GOSUB 6100
  8. 20040  VTAB 19:A$ = "PRESS SPACE BAR TO CONTINUE": GOSUB 6100
  9. 21000 K =  PEEK(49152): IF K < >160  THEN 21000
  10. 22000  PRINT  CHR$(4)"-I.O.SYSTEM"
  11. 29999  END