home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 1 / AppleDisk_001.dsk / HELLO2.bas < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  2.1 KB  |  39 lines
  1. 1020 D$ =  CHR$(4): GOTO 9000
  2. 1030  FOR Z = 39 TO 0  STEP  -1: POKE 32,Z: POKE 33,40 -Z: CALL  -936: NEXT : POKE 32,0: POKE 33,40: RETURN 
  3. 9000 HT = 14:SN = 7:Q$ =  CHR$(34):HL = 3
  4. 9030 HL$(0) = "                                        "
  5. 9040 HL$(1) = "             APPLEDISK  N.1             "
  6. 9050 HL$(2) = "                                        "
  7. 9060 SI$(1) = "INVEST"
  8. 9070 SI$(2) = "COMBAT!"
  9. 9080 SI$(3) = "STAMPAMANIFESTI"
  10. 9090 SI$(4) = "DIETA"
  11. 9100 SI$(5) = "AUTO.MENU"
  12. 9120 SI$(6) = "* CATALOG"
  13. 9130 SI$(7) = "* FINE"
  14. 9170  TEXT : HOME 
  15. 9180  INVERSE : FOR X = 0 TO HL -1: PRINT HL$(X);: NEXT X: PRINT : NORMAL 
  16. 9185 HL = 3
  17. 9190 CS = 1
  18. 9200  FOR X = 1 TO SN: IF X = CS  THEN  INVERSE 
  19. 9210  VTAB HL +2 +X +X *(SN <10): HTAB HT: PRINT SI$(X): NORMAL 
  20. 9220  NEXT X
  21. 9230  VTAB 23: INVERSE : PRINT "<-";: NORMAL : PRINT " ";: INVERSE : PRINT "->";: NORMAL : PRINT " SELEZIONE .... ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " ESECUZIONE."
  22. 9240  POKE  -16368,0
  23. 9250 K =  PEEK( -16384): IF K <128  THEN 9250
  24. 9260  POKE  -16368,0:K = K -128: IF K < >8  AND K < >11  AND K < >21  AND K < >10  AND K < >13  THEN 9250
  25. 9270 OS = CS
  26. 9280  IF K = 8  OR K = 11  THEN CS = CS -1:CS = CS *(CS >0) +SN *(CS = 0): GOSUB 9420: GOTO 9250
  27. 9290  IF K = 21  OR K = 10  THEN CS = CS +1:CS = CS *(CS < = SN) +(CS = SN +1): GOSUB 9420: GOTO 9250
  28. 9300  ON CS GOTO 9310,9320,9330,9340,9350,9360,9370
  29. 9310  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: PRINT D$;"RUN INVEST"
  30. 9320  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: PRINT D$;"RUN COMBAT!"
  31. 9330  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: PRINT D$;"RUN STAMPAMANIFESTI"
  32. 9340  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: PRINT D$;"RUN DIETA"
  33. 9350  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: PRINT D$;"RUN AUTO.MENU"
  34. 9360  TEXT : CALL  -936: PRINT D$;"CATALOG": NEW 
  35. 9370  TEXT : CALL  -936: NEW 
  36. 9420  VTAB HL +2 +OS +OS *(SN <10): HTAB HT: PRINT SI$(OS)
  37. 9430  VTAB HL +2 +CS +CS *(SN <10): INVERSE : HTAB HT: PRINT SI$(CS): NORMAL : RETURN 
  38. 10020  VTAB 10: HTAB 6: PRINT "Un momento, prego..."
  39. 10030  VTAB 12: HTAB 6: PRINT "Sto caricando ";: FLASH : PRINT SI$(CS): NORMAL : POKE 34,0: POKE 35,24: RETURN