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*