home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 6 / AppleDisk_006.dsk / HELLO.bas < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  1.1 KB  |  19 lines
  1. 1  REM **********************
  2. 2  REM *    PRESENTAZIONE   *
  3. 3  REM *         DI         *
  4. 4  REM *  GIORGIO  CAIRONI  *
  5. 5  REM *   COPYRIGHT 1986   *
  6. 6  REM * BY  EDITRONICA srl *
  7. 7  REM **********************
  8. 9 D$ =  CHR$(4)
  9. 10  CALL  -936: PRINT D$"BLOAD APPLEDISK6"
  10. 20  POKE  -16302,0: POKE  -16304,0: POKE  -16300,0: POKE  -16297,0
  11. 30  GOSUB 1000
  12. 50 D = 80:P = 76: GOSUB 990:P = 85: GOSUB 990:D = 170:P = 95: GOSUB 990:P = 128: GOSUB 990:P = 128: GOSUB 990:D = 80:P = 154: GOSUB 990:P = 146: GOSUB 990:D = 170:P = 128: GOSUB 990:P = 128: GOSUB 990:P = 128: GOSUB 990
  13. 55 D = 80:P = 95: GOSUB 990:P = 85: GOSUB 990:D = 170:P = 76: GOSUB 990:P = 76: GOSUB 990:D = 80:P = 76: GOSUB 990:P = 85: GOSUB 990:P = 95: GOSUB 990:P = 85: GOSUB 990:D = 170:P = 76: GOSUB 990:P = 85: GOSUB 990:P = 95: GOSUB 990
  14. 100  GET A$: PRINT D$: IF A$ < > CHR$(13)  THEN 100
  15. 980  PRINT D$"RUN HELLO2": END 
  16. 990  POKE 768,P: POKE 769,D: CALL 770: RETURN 
  17. 990  POKE 768,P: POKE 769,D: CALL 770: RETURN 
  18. 1000  FOR I = 770 TO 790: READ D: POKE I,D: NEXT : RESTORE : RETURN 
  19. 1010  DATA  173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96