home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FANT4-1.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  65 lines
  1. 10  HIMEM: 8192
  2. 20  ONERR  GOTO 680
  3. 30 D$ =  CHR$(4)
  4. 40  PRINT D$"BLOAD MLMENU"
  5. 50  PRINT D$"BLOAD GVS,A$5FFF"
  6. 60  HGR2 
  7. 70  CALL 35395
  8. 80  FOR I = 1 TO 1000: NEXT I
  9. 90  POKE 49168,0
  10. 100 X = X +1:Y =  PEEK( -16384): IF Y >127  THEN 230
  11. 110  IF X = 500  THEN 230
  12. 120  GOTO 100
  13. 150  TEXT : HOME 
  14. 160  VTAB 3: HTAB 3: INVERSE : FOR I = 3 TO 37: PRINT " ";: NEXT I
  15. 170  FOR I = 4 TO 21: VTAB I: HTAB 3: PRINT " ";: HTAB 37: PRINT " ";: NEXT I
  16. 180  VTAB 21: HTAB 3: FOR I = 3 TO 37: PRINT " ";: NEXT I
  17. 190  VTAB 1: HTAB 1: INVERSE : FOR I = 1 TO 39: PRINT " ";: NEXT I
  18. 200  FOR I = 2 TO 22: VTAB I: HTAB 1: PRINT " ";: HTAB 39: PRINT " ";: NEXT I
  19. 210  VTAB 23: HTAB 1: FOR I = 1 TO 39: PRINT " ";: NEXT I: NORMAL 
  20. 220  RETURN 
  21. 230  GOSUB 150
  22. 240 A$(1) = "WE STRONGLY SUGGEST THAT YOU"
  23. 250 A$(2) = "MAKE A BACKUP COPY OF THIS"
  24. 260 A$(3) = "MASTER  DISKETTE"
  25. 270 A$(4) = "PRESS ANY KEY TO CONTINUE."
  26. 280 V = 8
  27. 290  FOR I = 1 TO 4
  28. 300 X = 0
  29. 310 X = X +1
  30. 320  VTAB V: HTAB 20 -X: PRINT  LEFT$(A$(I),X);
  31. 330  HTAB 20: PRINT  RIGHT$(A$(I),X);
  32. 340  IF X < > LEN(A$(I))/2  THEN 310
  33. 350  IF I = 3  THEN V = 19: GOTO 370
  34. 360 V = V +2
  35. 370  NEXT I
  36. 380  POKE 49168,0:X = 0:X$ = "!/-\!/-\"
  37. 390  VTAB 19: HTAB 33
  38. 400 X = X +1: IF X = 9  THEN X = 1
  39. 410  PRINT  MID$ (X$,X,1);
  40. 420 KEY =  PEEK(49152): IF KEY <128  THEN 390
  41. 430  POKE 49168,0
  42. 440  GOSUB 150
  43. 450 A$(1) = "DO NOT SAVE DATA TO THIS"
  44. 460 A$(2) = " DISK. PLEASE FORMAT A WORK DISK"
  45. 470 A$(3) = "AT THE MAIN MENU"
  46. 480 A$(4) = "PRESS ANY KEY TO CONTINUE."
  47. 490 V = 8
  48. 500  FOR I = 1 TO 4
  49. 510 X = 0
  50. 520 X = X +1
  51. 530  VTAB V: HTAB 20 -X: PRINT  LEFT$(A$(I),X);
  52. 540  HTAB 20: PRINT  RIGHT$(A$(I),X);
  53. 550  IF X < > LEN(A$(I))/2  THEN 520
  54. 560  IF I = 3  THEN V = 19: GOTO 580
  55. 570 V = V +2
  56. 580  NEXT I
  57. 590 X = 0:X$ = "!/-\!/-\"
  58. 600  VTAB 19: HTAB 33
  59. 610 X = X +1: IF X = 9  THEN X = 1
  60. 620  PRINT  MID$ (X$,X,1);
  61. 630 KEY =  PEEK(49152): IF KEY <128  THEN 600
  62. 640  POKE 1012,0
  63. 660  POKE 49168,0: HOME : TEXT : VTAB 12: HTAB 15: PRINT "LOADING..."
  64. 670  PRINT D$"RUN MENU"
  65. 680  TEXT : HOME : PRINT "ERROR.": FOR I = 1 TO 2000: NEXT : CLEAR : GOTO 20