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