home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DIGIDEMO.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  616b  |  14 lines
  1. 5  HOME : HGR2 : HGR : TEXT 
  2. 10 D$ =  CHR$(13) + CHR$(4)
  3. 20  PRINT D$;"BLOADZD_LOGO.PIC,A$2000"
  4. 30 X =  PEEK(49232):X =  PEEK(49239):X =  PEEK(49236):X =  PEEK(49234)
  5. 40  PRINT D$;"BLOAD MOVER": PRINT D$;"BLOAD SHAN'S DIGIPLAYER V.2,A$300"
  6. 50  PRINT D$;"BLOAD SJAYLOOP.DCRD,A$6200"
  7. 52  POKE 8,00: POKE 9,105: POKE 4,14
  8. 54  CALL 768: FOR I = 1 TO 24: CALL 788: IF  PEEK( -16384) >127  THEN 70
  9. 55  NEXT : POKE 8,00: POKE 9,98: CALL 768
  10. 56  FOR I = 1 TO 62: CALL 788: IF  PEEK( -16384) >127  THEN 70
  11. 57  NEXT 
  12. 70  CALL 24576: TEXT 
  13. 80  VTAB 12: PRINT " LOADING  DIGICORDER DEMO -  PLEASE WAIT"
  14. 120  PRINT D$;"RUN P1991"