home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 6 / AppleDisk_006.dsk / HELLO2.bas < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  2.5 KB  |  44 lines
  1. 1000  IF  PEEK(64435) = 234  THEN  GOSUB 21000
  2. 1020 D$ =  CHR$(4): GOTO 9000
  3. 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 
  4. 9000 HT = 14:SN = 7:Q$ =  CHR$(34):HL = 3
  5. 9030 HL$(0) = "                                        "
  6. 9040 HL$(1) = "             APPLEDISK  N.6             "
  7. 9050 HL$(2) = "                                        "
  8. 9060 SI$(1) = "TRADUTTORE"
  9. 9070 SI$(2) = "COCKTAILS"
  10. 9080 SI$(3) = "SOLITARIO"
  11. 9090 SI$(4) = "DEFLATTORE"
  12. 9100 SI$(5) = "TURBO COPIATORE"
  13. 9120 SI$(6) = "* CATALOG"
  14. 9130 SI$(7) = "* FINE"
  15. 9170  TEXT : HOME 
  16. 9180  INVERSE : FOR X = 0 TO HL -1: PRINT HL$(X);: NEXT X: PRINT : NORMAL 
  17. 9185 HL = 3
  18. 9190 CS = 1
  19. 9200  FOR X = 1 TO SN: IF X = CS  THEN  INVERSE 
  20. 9210  VTAB HL +2 +X +X *(SN <10): HTAB HT: PRINT SI$(X): NORMAL 
  21. 9220  NEXT X
  22. 9230  VTAB 23: INVERSE : PRINT "<-";: NORMAL : PRINT " ";: INVERSE : PRINT "->";: NORMAL : PRINT " SELEZIONE .... ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " ESECUZIONE."
  23. 9240  POKE  -16368,0
  24. 9250 K =  PEEK( -16384): IF K <128  THEN 9250
  25. 9260  POKE  -16368,0:K = K -128: IF K < >8  AND K < >11  AND K < >21  AND K < >10  AND K < >13  THEN 9250
  26. 9270 OS = CS
  27. 9280  IF K = 8  OR K = 11  THEN CS = CS -1:CS = CS *(CS >0) +SN *(CS = 0): GOSUB 9420: GOTO 9250
  28. 9290  IF K = 21  OR K = 10  THEN CS = CS +1:CS = CS *(CS < = SN) +(CS = SN +1): GOSUB 9420: GOTO 9250
  29. 9300  ON CS GOTO 9310,9320,9330,9340,9350,9360,9370
  30. 9310  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: GOSUB 11000: PRINT D$;"RUN TRADUTTORE"
  31. 9320  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: GOSUB 11000: PRINT D$;"RUN COCKTAILS"
  32. 9330  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: GOSUB 11000: PRINT D$;"RUN SOLITARIO"
  33. 9340  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: GOSUB 11000: PRINT D$;"RUN DEFLATTORE"
  34. 9350  POKE 34,3: POKE 35,22: GOSUB 1030: GOSUB 10020: GOSUB 11000: PRINT D$;"RUN TURBO COPIATORE"
  35. 9360  TEXT : CALL  -936: PRINT D$;"CATALOG": NEW 
  36. 9370  TEXT : CALL  -936: NEW 
  37. 9420  VTAB HL +2 +OS +OS *(SN <10): HTAB HT: PRINT SI$(OS)
  38. 9430  VTAB HL +2 +CS +CS *(SN <10): INVERSE : HTAB HT: PRINT SI$(CS): NORMAL : RETURN 
  39. 10020  VTAB 10: HTAB 6: PRINT "Un momento, prego..."
  40. 10030  VTAB 12: HTAB 6: PRINT "Sto caricando ";: FLASH : PRINT SI$(CS): NORMAL : POKE 34,0: POKE 35,24: RETURN 
  41. 11000  IF  PEEK(64435) = 234  THEN  CALL 844
  42. 11010  RETURN 
  43. 21000  FOR A = 816 TO 864: READ X: POKE A,X: NEXT A: CALL 816: RETURN 
  44. 21010  DATA      169,48,141,246,3,169,3,141,247,3,76,64,3,76,76,3,169,83,133,54,169,3,133,55,32,234,3,96,32,147,254,32,234,3,96,201,225,144,6,201,251,176,2,41,223,76,240,253,0