1 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]       [221]         NON-DESTRUCT          [221]       [221]    BLINKING CURSOR ROUTINE    [221]       [221]              BY               [221]
2 [143]"(null)        STEPHEN CASEY          (null)       /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP                                                                                 .
3 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]       [221]           VARIABLES           [221]       [221]CL = CURSOR LOCATION           [221]       [221]CC = CHARACTER UNDER CURSOR    [221]
4 [143]"(null)CM = COLOR MEMORY              (null)       (null)CV = COLOR VALUE               (null)       (null)BF = BLINK FLAG                (null)       (null)BT = BLINK TIMING              (null)
5 REM"[221]  CHANGE BV TO A VALUE BETWEEN [221]       [221]  80 & 100 FOR COMPILED BASIC  [221]       [221]  PROGRAMS.                    [221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] .
20 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,14:[153]"SYSENDE MIT 'AUFHOEREN' !"
25 AA$[178]"":[153]"CONTDEIN WUNSCH ?"
30 [141]40:[153]A$;:[151]212,0:[151]216,0:A[178][198](A$):[139]A[179][177]13[167][139]A[178]20[167][141]900:[137]30
31 [139]A[179][177]13[167][139]A[179]65[176]A[177]90[167]30: [143]      NUR BUCHSTABEN IN STRING AUFNEHMEN
33 [139]A[179][177]13[167]AA$[178]AA$[170]A$:[137]30 : [143]      BILDUNG DES STRINGS (AA$)
34 [139]AA$[178]"AUFHOEREN"[167][153]"LOAD":[155][171]5
35 [137]25
36 [143]      ******************
37 [143]      GET-CURSOR-ROUTINE
38 [143]      ******************
39 [143]
40 BV[178]28:BT[178]0:CL[178]1024[170][194](214)[172]40[170][194](211)[170]([194](211)[177]39)[172]40:CC[178][194](CL)
50 CM[178]54272[170]CL:CV[178][194](CM)
60 [151]CL,((CC[170]128)[175]255):[151]CM,[194](646):[137]80
70 [151]CL,CC:[151]CM,CV
80 BT[178]BT[170]2
90 [161]A$:[139]A$[179][177]""[167]110
100 [137]120
110 [151]CL,CC:[151]CM,CV:[142]
120 [139]BF[178]0[167][139]BT[177]BV[167]BT[178]0:BF[178]1:[137]70
130 [139]BF[178]1[167][139]BT[177]BV[167]BT[178]0:BF[178]0:[137]60
140 [137]80
800 [143]
810 [143]     ******************
820 [143]     *ENDE DER ROUTINE*
830 [143]     ******************
840 [143]
900 LA[178][195](AA$):AA$[178][200](AA$,LA[171]1):[142]
910 [143] - ZEILE 900 = STRING 'AA$' BEI      'DEL' UM 1 ZEICHEN KUERZEN