home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / TRANSYL2.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  27 lines
  1. 0  PRINT  CHR$(4);"MAXFILES1": GOSUB 13: PRINT 
  2. 1  FOR R = 1 TO 3000: NEXT : TEXT : HOME 
  3. 5  PRINT  CHR$(4);"MAXFILES 1"
  4. 7  PRINT "<CTRL-D>OPENDISK2": PRINT "<CTRL-D>READDISK2": INPUT MR$: INPUT DT$: PRINT "<CTRL-D>CLOSEDISK2"
  5. 12  PRINT  CHR$(4)"RUN HELLO3"
  6. 13 V = 12:L$ = "-=+> CRACKED BY THE DRAGON LORD <+=-"
  7. 14  POKE 34,V
  8. 16 ZZ =  LEN(L$): IF ZZ/2 < > INT(ZZ/2)  THEN L$ = L$ +" "
  9. 22 ZZ =  LEN(L$)/2
  10. 23  SPEED= 150: VTAB 23
  11. 32  FOR Z = 1 TO  LEN(L$)/2: HTAB 1: PRINT  MID$ (L$,ZZ +1 -Z,1);: HTAB 40: PRINT  MID$ (L$,ZZ +Z,1);: NEXT 
  12. 36  FOR Z = 1 TO 23 -V -22: PRINT : NEXT 
  13. 37  SPEED= 255
  14. 39  FOR Z = 1 TO ZZ: VTAB V: HTAB 1: PRINT  MID$ (L$,ZZ +1 -Z,Z);: HTAB 41 -Z: PRINT  MID$ (L$,ZZ +1,Z);: VTAB 24: PRINT : NEXT 
  15. 42  FOR Z = 1 TO 20 -ZZ: VTAB V: HTAB Z: PRINT " "; LEFT$(L$,ZZ);: HTAB 41 -ZZ -Z: PRINT  RIGHT$(L$,ZZ);" ";: NEXT 
  16. 43  RETURN 
  17. 44  REM 
  18. 45  REM  
  19. 46  REM  -=*=-=*=-=*=-=*=-=*=-
  20. 47  REM   
  21. 48  REM       CRACKED BY:
  22. 49  REM 
  23. 50  REM     THE DRAGON LORD 
  24. 51  REM 
  25. 52  REM  -=*=-=*=-=*=-=*=-=*=- 
  26. 53  REM 
  27. 54  REM