CLS*
LOUD
LORES
  BERNT FIGARO
*
  PRESENTERAR VERSION 5
  AV
*
*************************
* STORTEXTKOMPILATOR 80 *
*************************
*
TEXT
CHANGE010
NEXT
*  Detta {r en annorlunda variant av stortexter att presenteras p}
*  p} ABC80:S bildsk{rm. Programmet till}ter anv{ndning av alla
*  ASCII-tecken vid vanlig text och tecken mellan 32 och 95 f|r
*  stortext. F|ljande begr{nsningar g{ller:
*  Max 26 tecken vid stortext och max 78 tecken vid vanlig text.
*
*  Utskriften styrs av diverse kommandon med eller utan attribut.
*  Den text som skall presenteras kan ligga p} en textfil eller
*  som DATA-satser efter en sm{rre programjustering.
*
*  Kommandon som f|ljs av XXYY skall ha sifferv{rden, med lika
*  m}nga siffror som antalet X eller Y. Om det anges XX skall
*  v{rden under 10 ha en nolla framf|r, t.ex 09 och om det
*  anges XXX skall s}ledes siffergruppen best} av tre siffror.
WAIT
NEXT
       KOMMANDON:
       ----------
*
*   1) CLS*        rensar sk{rmen och nollst{ller radindex.
*   2) WAIT        ger paus. [ndras med CHANGE-kommando.
*   3) NEXT        g|r klart f|r n{sta visning, anropar WAIT och CLS.
*   4) END*        avslutar programmet.Promptar *READY*
*   5) PRINT0023   ger printerutskrift f|r sk{rmraderna 0 - 23.
*   6) LOUD        ger en signal.
*   7) CHAR15      ger utskrift av f|rminskad text
*   8) CHAR18      }terst{ller till normal utskrift.
*                  OBSERVERA ! Kommandot CHAR18 skall ges
*                  f|r att inte texten skall bli f|rvr{ngd.
*   9) INVERTXXYY  ger inverterad text.
*  10) RESETXXYY   }terst{ller inverterad text.
*  11) TEXT        ger normal utskrift p} printer och sk{rm. 
*  12) CHANGEXXX   {ndrar paustiden . V{rde 0 - 255.
*      OBSERVERA ! Kommandoord f}r ej inleda texten.
*  13) MODE0       26 tecken x 12 rader.
*  14) MODE1       19 tecken x  8 rader.
*
*      Nu kommer en presentation av stortextens utseende.
WAIT
NEXT
LORES
MODE0
CLS*
ASCII 32-67  MODE0
------------------
32 33 34 35 36 37 38 39 40
   !  "  #  $  %  &  '  ( 
41 42 43 44 45 46 47 48 49
(  *  +  ,  -  .  /  0  1 
50 51 52 53 54 55 56 57 58
2  3  4  5  6  7  8  9  : 
59 60 61 62 63 64 65 66 67
;  <  =  >  ?  @  A  B  C 
WAIT
NEXT
CLS*
ASCII 68-95 MODE0
-----------------
68 69 70 71 72 73 74 75 76
D  E  F  G  H  I  J  K  L 
77 78 79 80 81 82 83 84 85
M  N  O  P  Q  R  S  T  U 
86 87 88 89 90 93 91 92 94
V  W  X  Y  Z  ]  [  \  ^ 
95
_
WAIT
NEXT
CLS*
MODE1
ASCII 32-46  MODE1
------------------
32  33  34  35  36
    !   "   #   $
37  38  39  40  41
%   &   '   (   )
42  43  44  45  46
*   +   ,   -   . 
WAIT
NEXT
CLS*
ASCII 47-61  MODE1
------------------
47  48  49  50  51
/   0   1   2   3
52  53  54  55  56
4   5   6   7   8 
57  58  59  60  61
9   :   ;   <   =
WAIT
NEXT
CLS*
ASCII 62-76  MODE1
------------------
62  63  64  65  66
>   ?   @   A   B
67  68  69  70  71
C   D   E   F   G
72  73  74  75  76
H   I   J   K   L
WAIT
NEXT
CLS*
ASCII 77-91  MODE1
------------------
77  78  79  80  81
M   N   O   P   Q
82  83  84  85  86
R   S   T   U   V
87  88  89  90  91
W   X   Y   Z   [
WAIT
NEXT
CLS*
ASCII 92-106 MODE1
------------------
92  93  94  95  96
\   ]   ^   _   `
97  98  99  00  01
a   b   c   d   e
02  03  04  05  06
f   g   h   i   j
WAIT
NEXT
CLS*
ASCII107-121 MODE1
------------------
07  08  09  10  11
k   l   m   n   o
12  13  14  15  16
p   q   r   s   t
17  18  19  20  21
u   v   w   x   y
WAIT
NEXT
CLS*
ASCII122-127 MODE1
------------------
22  23  24  25  26
z   {   |   }   ~
27

WAIT
NEXT
CLS*
MODE0
*                        *
 *++++++++++++++++++++++* 
 * LYCKA TILL           * 
 * \NSKAR MEDLEM 412    * 
 * BERNT FIGARO         * 
 * \REBRO  I            * 
 * NOVEMBER 1983        * 
 *++++++++++++++++++++++*
*                        *
WAIT
CLS*
END*
