home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 1 / AppleDisk_001.dsk / STAMPAMANIFESTI.bas < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  11.9 KB  |  144 lines
  1. 10  REM  **********************
  2. 20  REM  *  STAMPAMANIFESTI   *
  3. 30  REM  * DI DAVID  SIGETICH *
  4. 40  REM  * (C)1986 EDITRONICA *
  5. 60  REM  *  E MICROSPARC, INC *
  6. 70  REM  **********************
  7. 80  TEXT : HOME : INVERSE : PRINT "           STAMPAMANIFESTI           ": PRINT "** (C)1986 EDITRONICA E MICROSPARC **": NORMAL : POKE 34,2
  8. 90  DIM C$(26),S$(22),X$(22),A%(58,123):EE$ =  CHR$(27):D$ =  CHR$(4):U$ = "  "
  9. 100  PRINT : PRINT  TAB( 8)"CHE STAMPANTE HAI?": PRINT : PRINT  TAB( 14)"<E>PSON": PRINT  TAB( 14)"<P>ROWRITER": PRINT  TAB( 14)"<I>MAGEWRITER": PRINT  TAB( 14)"<D>MP"
  10. 110  VTAB 13: HTAB 14: CALL  -958: PRINT "< >";: CALL  -1008: CALL  -1008: GET PT$: PRINT PT$: IF PT$ < >"E"  AND PT$ < >"P"  AND PT$ < >"I"  AND PT$ < >"D"  THEN 110
  11. 115  IF PT$ = "I"  THEN PT$ = "E"
  12. 118  IF PT$ = "D"  THEN PT$ = "E":FL = 1
  13. 120  IF PT$ = "E"  THEN LF$ = "":P1$ = EE$ +"W" + CHR$(1):P2$ = EE$ + CHR$(65) + CHR$(6):P3$ = EE$ +"E":P4$ =  CHR$(14):P5$ = EE$ +"@"
  14. 130  IF PT$ = "P"  THEN LF$ = "":P1$ =  CHR$(9) +"80N":P2$ = EE$ +"B" + CHR$(6):P3$ = EE$ +"!":P4$ =  CHR$(14):P5$ = EE$ + CHR$(34) + CHR$(15)
  15. 140  GOTO 260
  16. 150  REM      SUBROUTINE STAMPA
  17. 160 INDENT = 24: IF SL$ = "G"  THEN INDENT = 6
  18. 170  FOR J = 1 TO A%(C,0): PRINT SIZE$; SPC( INDENT);U$;C$(J);LF$
  19. 180  NEXT J
  20. 190  IF U$ < >"  "  THEN 220
  21. 200  IF SL$ = "G"  THEN  PRINT : PRINT : PRINT : PRINT : RETURN 
  22. 210  FOR Z = 1 TO 4: PRINT LF$: NEXT : RETURN 
  23. 220  IF I =  LEN(MM$)  THEN  RETURN 
  24. 230  IF SL$ = "G"  THEN 250
  25. 240  FOR Z = 1 TO 3: PRINT SIZE$; SPC( INDENT);U$;LF$: NEXT : RETURN 
  26. 250  FOR Z = 1 TO 3: PRINT SIZE$; SPC( INDENT);U$: NEXT : RETURN 
  27. 260  REM     PROGRAMMA PRINCIPALE
  28. 270  HOME 
  29. 280  VTAB 3: PRINT "     ABBASSA IL TASTO FISSA MAIUSCOLE.": REM ELIMINA QUESTA LINEA SE NON HAI UN APPLE IIE 
  30. 290 MM$ = "": VTAB 4: HTAB 1
  31. 300  PRINT 
  32. 310  VTAB 4: HTAB 1: PRINT "QUALE TESTO ?": VTAB 12: PRINT "DIMENSIONI DEI CARATTERI:  (";: INVERSE : PRINT "P";: NORMAL : PRINT "/G)>"
  33. 320  VTAB 15: PRINT "SOTTOLINEATO?        (S/";: INVERSE : PRINT "N";: NORMAL : PRINT ") >": PRINT "------------": VTAB 18
  34. 330  VTAB 20: INVERSE : HTAB 15: PRINT "OK?";: NORMAL : PRINT " (S/";: INVERSE : PRINT "N";: NORMAL : PRINT ") >"
  35. 340  VTAB 24: HTAB 1: INVERSE : PRINT " CARATTERI: A-Z 1-0 !" + CHR$(34) +"$()*:=-+;<,>.?/ ";: NORMAL 
  36. 350  REM     RICEVE IL MESSAGGIO
  37. 360  VTAB 4: HTAB 15
  38. 370  GET A$: IF A$ =  CHR$(13)  AND MM$ < >""  THEN 440
  39. 380  IF A$ =  CHR$(8)  AND  LEN(MM$) =  >2  THEN MM$ =  LEFT$(MM$, LEN(MM$) -1): CALL  -1008: CALL  -868: GOTO 370
  40. 390  IF A$ =  CHR$(8)  AND  LEN(MM$) =  <1  THEN MM$ = "": HTAB 15: CALL  -868: GOTO 370
  41. 400  IF  ASC(A$) <32  THEN 370
  42. 410  IF  LEN(MM$) = 225  THEN  PRINT  CHR$(7);: GOTO 370
  43. 420 MM$ = MM$ +A$: PRINT A$;: GOTO 370
  44. 430  REM     RICEVE LA RISPOSTA
  45. 440  VTAB 12: HTAB 35: GET SL$:SIZE$ = "": IF SL$ = "G"  THEN SIZE$ = P4$: PRINT SL$: IF PT$ = "E"  THEN P2$ = ""
  46. 450  IF SL$ < >"G"  THEN P1$ = "": VTAB 12: HTAB 35: PRINT "P": IF FL = 1  THEN FL = 0:P2$ =  CHR$(15)
  47. 460 U$ = "  ": VTAB 15: HTAB 29: GET A$: PRINT "N": IF A$ = "S"  THEN  VTAB 15: HTAB 29: PRINT "S":U$ = "@@"
  48. 480  VTAB 20: HTAB 26: GET A$: PRINT A$: IF A$ < >"S"  THEN  VTAB 6: CALL  -958:MM$ = "": GOTO 260
  49. 490  REM     STAMPA IL MESSAGGIO
  50. 500  IF S$(1) = " "  THEN 570
  51. 510  HOME : VTAB 12: PRINT "STO DEFINENDO IL SET DI CARATTERI...": PRINT : PRINT 
  52. 520  FOR N = 1 TO 22: FOR M = 1 TO N:S$(N) = S$(N) +" ":X$(N) = X$(N) +"@": NEXT : NEXT 
  53. 530  FOR N = 0 TO 58: READ Y$,M
  54. 540  IF N = 2  THEN  PRINT  CHR$(34);" ";: GOTO 560
  55. 550  PRINT Y$;" ";
  56. 560  FOR L = 0 TO M: READ A%(N,L): NEXT : NEXT 
  57. 570  HOME : VTAB 12: PRINT "STO STAMPANDO..."
  58. 580  PRINT D$"PR#1": PRINT P5$;
  59. 590  PRINT P1$;: PRINT P2$;: PRINT FT$;: PRINT 
  60. 600  FOR I = 1 TO  LEN(MM$)
  61. 610 C$ =  MID$ (MM$,I,1):C =  ASC(C$) -32: IF C >58  THEN 690
  62. 620 T = 0: FOR L = 1 TO A%(C,0):C$(L) = ""
  63. 630  IF A%(C,T +1) <0  THEN C$(L) = C$( -A%(C,T +1)): GOTO 670
  64. 640  FOR B = 1 TO A%(C,T +1):T = T +2
  65. 650 C$(L) = C$(L) +S$(A%(C,T)) +X$(A%(C,T +1))
  66. 660  NEXT B
  67. 670 T = T +1: NEXT L
  68. 680  GOSUB 150
  69. 690  NEXT I:P1$ = "":P2$ = "":P3$ = "":P4$ = "": PRINT : PRINT D$"PR#0": VTAB 3: CALL  -958: PRINT MM$: PRINT : PRINT 
  70. 700  VTAB 6: HTAB 1: CALL  -958: PRINT "P) AVANZAMENTO PAGINA, R) AVANZAMENTO": PRINT "RIGA, M) MENU PRINCIPALE, F) FINE>";: GET A$: PRINT A$: FOR I = 1 TO 100: NEXT : REM   10, 9, &6 SPAZI 
  71. 710  IF A$ < >"P"  AND A$ < >"R"  AND A$ < >"M"  AND A$ < >"F"  THEN  HTAB 1: VTAB 6: CALL  -958: GOTO 700
  72. 720  IF A$ = "P"  THEN  PRINT D$"PR#1": PRINT  CHR$(12): PRINT D$"PR#0": GOTO 700
  73. 730  IF A$ = "R"  THEN  PRINT D$"PR#1": PRINT : PRINT D$"PR#0": GOTO 700
  74. 740  IF A$ = "M"  THEN 120
  75. 750  GOTO 1500
  76. 760  REM     SET DI CARATTERI
  77. 770  DATA   " ", 10,8, 1,0,0, -1, -1, -1, -1, -1, -1, -1  
  78. 780  DATA   !, 16,6, 1,14,3, 2,4,1,6,9,2, 3,3,2,15, -3, -2, -1
  79. 790  DATA   "", 14,8, 1,20,4, 1,16,8, -1, 1,0,0, -4, -1, -2, -1 
  80. 800  DATA   #,21,15, 2,8,3,5,3, -1, -1, 1,4,19, -4, -4, -1, -1, -1, -4, -4, -4, -1, -1, -1
  81. 810  DATA   $, 37,13, 2,4,3,6,9, 2,4,3,5,11, -2, 3,4,3,5,3,5,3, 1,3, 21, -5, -4, -5, -5, -4, 2,4,11,5,3, -11, 2,5,9,6,2
  82. 820  DATA   %, 42,10, 2,3,3,13,3, 2,5,3,11,3, 2,7,3,9,3, 1,9,3, 1,11,3, 1,13,3, 1,15,3, 2,5,3,9,3, 2,5,3,11,3, 2,5,3,13,3
  83. 830  DATA   &,116,19, 1,6,2, 1,4,6, 3,4,2,2,3,6,2, 3,3,2,4,2,4,6, 4,3,2,5,2,1,4,2,3, 3,3,2,5,5,6,2, 3,3,2,6,1,10,1, 3,3,2,5,3,9,2, 4,3,2,4,2,1,1,9,2, 4,3,2,3,2,3,1,9,1, 4,4,2,2,2,3,2,8,1, 4,4,2,1,2,5,2,7,1, 3,5,4,6,2,5,2
  84. 840  DATA   2,6,2,9,6, 2,5,3,11,3, 1,5,4, 2,4,2,2,2, 2,4,2,3,1
  85. 850  DATA   ', 7,3, 1,20,4, 1,16,8, -1
  86. 860  DATA   (,12,6, 1,3,21, -1, -1, 2,3,3,15,3, -4, -4
  87. 870  DATA   ), 12,6, 2,3,3,15,3, -1, -1, 1,3,21, -4, -4
  88. 880  DATA   *, 57,19, 1,12,3, 3,6,1,5,3,5,1, 3,6,2,4,3,4,2, 3,6,3,3,3,3,3, 3,7,3,2,3,2,3, 3,8,3,1,3,1,3, 1,9,9, 1,10,7, 1,4,19, -9, -9, -8, -7, -6, -5, -4, -3, -2, -1
  89. 890  DATA   +, 17,13, 1,12, 3, -1, -1, -1, -1, 1,7,13, -6, -6, -1, -1, -1, -1, -1
  90. 900  DATA   ",", 14,4, 1,3,3, 2,1,1,1,3, 1,1,5, 1,2,4
  91. 910  DATA   -, 13,11, 1,12,3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1
  92. 920  DATA   ., 6,4, 1,3,3, -1, -1, -1
  93. 930  DATA   /, 30,10, 1,3,3, 1,5,3, 1,7,3, 1,9,3, 1,11,3, 1,13,3, 1,15,3, 1,17,3, 1,19,3, 1,21,3
  94. 940  DATA   0, 22,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, -4, -4, -4, -4, -4, -4, -2, -2, -1
  95. 950  DATA   1, 39,13, 2,3,3,11,1, 2,3,3,11,2, 2,3,3,11,3, 2,3,3,12,3, 2,3,3,13,3, 1,3,20, 1,3,21, -7, 1,3,3, -9, -9, -9, -9
  96. 960  DATA   2, 79,13, 2,3,4,12,1, 2,3,5,11,2, 2,3,6,10,3, 3,3,3,1,3,10,3, 3,3,3,2,3,10,3, 3,3,3,3,3,10,2, 3,3,3,4,3,10,1, 3,3,3,5,3,9,1, 3,3,3,6,3,7,2, 3,3,3,7,3,6,2, 2,3,3,8,9, 2,3,3,9,7, 2,3,3,10,5
  97. 970  DATA   3, 86,13, 2,7,1,11,1, 2,6,2,11,2, 2,5,3,11,3, 2,4,3,13,3, 3,3,3,7,1,7,3, 3,3,2,7,3,7,2, 3,3,1,7,5,7,1, 3,3,1,6,7,6,1, 4,3,2,4,3,3,3,4,2, 4,3,3,2,3,5,3,2,3, 2,4,6,7,6, 2,5,4,9,4, 2,6,2,11,2, 2,7,2,11,2
  98. 980  DATA   4, 43,13, 1,12,3, 1,12,4, 1,12,5, 1,12,6, 2,12,3,1,3, 2,12,3,2,3, 2,12,3,3,3, 2,12,3,4,3, 2,12,3,5,3, 1,3,21, -10, -10, -1
  99. 990  DATA   5, 67,13, 2,7,1,5,11, 2,6,2,5,11, 2,5,3,5,11, 3,4,3,6,2,6,3, 3,3,3,7,2,6,3, 3,3,2,8,2,6,3, 3,3,1,9,2,6,3, -7, -6, 3,3,4,5,3,6,3, 2,4,10,7,3, 2,5,8,8,3, 2,7,5,9,3
  100. 1000  DATA   6, 64,14, 1,10,2, 1,8,6, 1,8,9, 2,5,5,2,7, 2,4,4,6,6, 2,3,5,7,7, 3,3,3,9,1,2,6, 3,3,1,11,1,4,4, 3,3,3,8,2,6,2, 2,3,5,5,2, 2,4,6,2,3, 1,6,8, 1,8,5, 1,10,2
  101. 1010  DATA   7, 52,12, 2,3,2,16,3, 2,3,4,14,3, 2,3,6,12,3, 2,5,6,10,3, 2,7,6,8,3, 2,9,6,6,3, 2,11,6,4,3, 2,13,6,2,3, 1,15,9, 1,17,7, 1,19,5, 1,21,3
  102. 1020  DATA   8, 55,15, 2,7,3,7,3, 2,6,5,5,5, 2,5,7,3,7, 4,4,3,2,4,1,3,3,3, 4,4,2,4,3,1,2,5,2, 3,3,2,6,4,7,2, 3,3,1,9,1,9,1, -7, -7, -6, -5, -4, -3, -2, -1
  103. 1030  DATA   9, 64,14, 1,15,2, 1,14,5, 1,13,8, 2,12,3,2,6, 2,12,2,5,5, 3,3,2,6,2,8,3, 3,3,4,4,1,11,1, 3,3,6,2,1,9,3, 2,5,7,8,4, 2,7,6,6,4, 2,8,7,2,4, 1,10,9, 1,13,5, 1,15,2
  104. 1040  DATA   ":", 8,4, 2,8,3,5,3, -1, -1, -1
  105. 1050  DATA   ;, 22,4, 2,3,3,5,3, 3,1,1,1,3,5,3, 2,1,5,5,3, 2,2,4,5,3
  106. 1060  DATA   <, 49,11, 1,13,1, 1,12,3, 1,11,5, 2,10,3,1,3, 2,9,3,3,3, 2,8,3,5,3, 2,7,3,7,3, 2,6,3,9,3, 2,5,3,11,3, 2,4,3,13,3, 2,3,3,15,3  
  107. 1070  DATA   =, 19,15, 2,8,3,5,3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 
  108. 1080  DATA   >, 49,11, 2,3,3,15,3, 2,4,3,13,3, 2,5,3,11,3, 2,6,3,9,3, 2,7,3,7,3, 2,8,3,5,3, 2,9,3,3,3, 2,10,3,1,3, 1,11,5, 1,12,3, 1,13,1
  109. 1090  DATA   ?, 81,15, 1,20,1, 1,19,3, 2,11,2,6,4, 2,10,4,7,3, 2,10,4,8,3, 3,9,2,2,2,8,2, 4,4,3,2,1,4,1,9,1, 4,4,3,2,2,3,2,8,1, 4,4,3,3,1,4,1,8,1, 3,11,1,3,2,6,2, 2,16,3,3,2, 2,16,4,1,3, 1,17,6, 1,19,3, 1,20,1  
  110. 1100  DATA   @,123,19, 1,12,4, 1,10,8, 1,9,10, 2,8,4,4,4, 2,7,3,8,3, 2,7,2,10,3, 3,6,2,8,2,2,2, 4,6,1,7,2,1,2,2,2, 4,5,2,6,3,2,2,2,2, 4,5,1,7,2,3,2,2,2, 4,4,2,6,4,2,2,3,1, 4,4,1,7,1,2,5,2,2
  111. 1110  DATA   4,4,1,7,2,2,4,2,2, 4,4,2,7,1,3,2,2,2, 3,5,1,7,2,6,1, 3,5,2,7,3,3,2, 2,6,2,6,7, 2,6,3,6,6, 2,7,3,7,3
  112. 1120  DATA   A, 30,12, 1,3,16, 1,3,17, 1,3,18, 2,12,3,4,3, 2,12,3,5,3, 2,12,3,6,3, -6, -5, -4, -3, -2, -1
  113. 1130  DATA   B, 45,13, 1,3,21, -1, -1, 3,3,3,7,2,6,3, -4, -4, -4, -4, 3,3,3,6,4,5,3, 3,3,4,4,6,4,3, 2,4,9,2,8, 2,5,7,4,6, 2,7,4,6,4  
  114. 1140  DATA   C, 34,14, 1,4,19, 1,3,21, -2,2,3,3,15,3, -4, -4, -4, -4, -4, -4, -4, 2,3,5,11,5, 2,4,4,11,4, 2,5,3,11,3
  115. 1150  DATA   D, 56,16, 1,3,21, -1, -1, 2,3,3,15,3, -4, 2,4,2,15,2, 2,4,3,13,3, 2,5,2,13,2, -8, 2,6,2,11,2, 2,6,3,9,3, 2,7,3,7,3, 2,8,3,5,3, 1,9,9, 1,10,7, 1,12,3
  116. 1160  DATA   E, 24,12, 1,3,21, -1, -1, 3,3,3,6,3,6,3, -4, -4, -4, -4, 2,3,3,15,3, -9, -9, -9
  117. 1170  DATA   F, 20,12, 1,3,21, -1, -1, 2,12,3,6,3, -4, -4, -4, -4, 1,21,3, -9, -9, -9
  118. 1180  DATA   G, 46,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, -4, -4, -4, 3,3,3,2,5,8,3, 3,3,3,3,3,9,3, -10, 2,3,9,7,5, 2,4,8,7,4, 2,5,6,8,3 
  119. 1190  DATA   H, 17,13, 1,3,21, -1, -1, 1,12,3, -4, -4, -4, -4, -4, -4, -1, -1, -1
  120. 1200  DATA   I, 17,11, 2,3,3,15,3, -1, -1, -1, 1,3,21, -5, -5, -1, -1, -1, -1
  121. 1210  DATA   J, 44,14, 2,8,2,11,3, 2,6,3,12,3, 2,5,4,12,3, 2,4,4,13,3, 2,3,3,15,3, 2,3,2,16,3, -6, 1,3,21, -8, 1,4,20, 1,21,3, -11, -11, -11
  122. 1220  DATA   K, 61,15, 1,3,21, -1, -1, 1,12,3, 1,11,5, 2,10,3,1,3, 2,9,3,3,3, 2,8,3,5,3, 2,7,3,7,3, 2,6,3,9,3, 2,5,3,11,3, 2,4,3,13,3, 2,3,3,15,3, 2,3,2,17,2, 2,3,1,19,1
  123. 1230  DATA   L, 15,11, 1,3,21, -1, -1, 1,3,3, -4, -4, -4, -4, -4, -4, -4  
  124. 1240  DATA   M, 35,19, 1,3,21, -1, -1, 1,19,4, 1,17,4, 1,15,4, 1,13,4, 1,11,4, 1,10,3, 1,9,2, -9, -8, -7, -6, -5, -4, -1, -1, -1
  125. 1250  DATA   N, 29,13, 1,3,21, -1, -1, 1,17,6, 1,15,6, 1,13,6, 1,11,6, 1,9,6, 1,7,6, 1,5,6, -1, -1, -1
  126. 1260  DATA   O, 22,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, -4, -4, -4, -4, -4, -4, -2, -2, -1
  127. 1270  DATA   P, 23,13, 1,3,21, -1, -1, 2,12,3,6,3, -4, -4, -4, -4, -4, -4, 1,12,12, -11, 1,13,10
  128. 1280  DATA   Q, 52,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, 3,3,3,2,1,12,3, 3,3,3,1,2,12,3, 2,3,6,12,3, 2,3,5,13,3, 2,3,4,14,3, -4, 1,2,22, -12, 2,2,1,1,19
  129. 1290  DATA   R, 49,13, 1,3,21, -1, -1, 2,12,3,6,3, -4, -4, 2,11,4,6,3, 2,9,6,6,3, 2,7,8,6,3,  3,5,6,1,3,6,3, 2,3,6,3,12, 2,3,4,5,12, 2,3,2,8,10
  130. 1300  DATA   S, 35,13, 2,3,3,7,10, 2,3,3,6,12, -2, 3,3,3,6,3,6,3, -4, -4, -4, -4, -4, -4, 2,3,12,6,3, -11, 2,4,10,7,2 
  131. 1310  DATA   T, 17,13, 1,21,3, -1, -1, -1, -1, 1,3,21,  -6, -6, -1, -1, -1, -1, -1
  132. 1320  DATA   U, 20,14, 1,4,20, 1,3,21, -2, 1,3,3, -4, -4, -4, -4, -4, -4, -4, -2, -2, -1
  133. 1330  DATA   V, 31,15, 1,21,3, 1,17,7, 1,15,9, 1,12,9, 1,9,9, 1,6,9, 1,4,8, 1,3,6, -7, -6, -5, -4, -3, -2, -1
  134. 1340  DATA   W, 35,19, 1,3,21, -1, -1, 1,4,4, 1,6,4, 1,8,4, 1,10,4, 1,12,4, 1,14,3, 1,16,2,  -9, -8, -7, -6, -5, -4, -3, -2, -1
  135. 1350  DATA   X, 37,13, 2,3,2,17,2, 2,3,4,13,4, 2,3,6,9,6, 2,5,6,5,6, 2,7,6,1,6, 1,9,9, 1,11,5, -6, -5, -4, -3, -2, -1
  136. 1360  DATA   Y, 31,15, 1,22,2, 1,20,4, 1,18,6, 1,16,6, 1,14,6, 1,12,5, 1,3,12, 1,3,10, -7, -6, -5, -4, -3, -2, -1
  137. 1370  DATA   Z, 107,17, 2,3,4,14,3, 2,3,5,13,3, 2,3,6,12,3, 3,3,3,1,3,11,3, 3,3,3,2,3,10,3, 3,3,3,3,3,9,3, 3,3,3,4,3,8,3, 3,3,3,5,3,7,3, 3,3,3,6,3,6,3, 3,3,3,7,3,5,3, 3,3,3,8,3,4,3, 3,3,3,9,3,3,3, 3,3,3,10,3,2,3, 3,3,3,11,3,1,3
  138. 1380  DATA     2,3,3,12,6, 2,3,3,13,5, 2,3,3,14,4
  139. 1500  CALL  -936: VTAB 10: HTAB 11: INVERSE : PRINT "1";: NORMAL : PRINT " - MENU APPLEDISK"
  140. 1510  PRINT : HTAB 11: INVERSE : PRINT "2";: NORMAL : PRINT " - FINE"
  141. 1520  VTAB 15: HTAB 18: PRINT "< >";
  142. 1530  VTAB 15: HTAB 19: GET A$: PRINT A$: IF A$ < >"1"  AND A$ < >"2"  THEN 1530
  143. 1540  IF A$ = "1"  THEN  PRINT  CHR$(4)"RUN HELLO2": END 
  144. 1550  TEXT : HOME : END