1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   VISA.MSK
3 REM ! Utg}va  4.1    840315
4 REM ! av (c) Stig Johansson. BRASTAD
5 REM ! tel. 0523-40209,40976
6 REM ! Minne 16 Kbytes f|r flexskiva
7 REM ! Checksumma 11273.
8 REM +++++++++++++++++++++++++++++++++
10 REM Detta p.g.m. listar b}de BAS och
12 REM BAC-filer. Omkopplar automatiskt.
14 REM Eft.inladdn. anropas med RUNV :
16 REM Detta pgm kan ocks} anv{ndas som
18 REM VERIFY d.v.s. du kan kolla att ett
20 REM program har blivit riktigt lagrat
22 REM p} flex-skivan innan du rad`rar
24 REM programmet ur minnet.
26 REM .................................
100 POKE -6656,42,10,254,34,13,230,33,13,230,34,10,254,201,1,40
105 POKE -6641,86,32,32,20,230,195,23,230,205,118,2,33,239,230,1
110 POKE -6626,22,0,205,11,0,33,5,231,1,18,0,205,5,0,62
115 POKE -6611,0,33,5,231,231,221,33,56,231,205,62,0,33,23,231
120 POKE -6596,1,33,0,205,11,0,62,0,221,33,56,231,205,153,8
125 POKE -6581,221,102,11,221,110,10,62,128,190,48,81,35,195,105,230
130 POKE -6566,62,0,221,33,56,231,205,153,8,221,102,11,221,110,10
135 POKE -6551,126,245,229,235,33,130,255,57,249,235,213,205,149,17,235
140 POKE -6536,209,213,54,10,35,237,82,68,77,235,205,11,0,209,229
145 POKE -6521,33,128,0,57,209,249,235,205,2,0,254,46,40,78,225
150 POKE -6506,241,133,111,62,0,190,202,90,230,62,1,190,40,65,195
155 POKE -6491,105,230,221,33,56,231,205,144,8,62,0,33,5,231,221
160 POKE -6476,33,56,231,205,62,0,33,0,255,14,119,62,0,221,33
165 POKE -6461,56,231,205,21,0,254,0,40,25,235,54,10,235,6,0
170 POKE -6446,75,3,33,0,255,205,11,0,205,2,0,254,46,40,4
175 POKE -6431,24,215,225,241,221,33,56,231,205,144,8,195,204,0,70
180 POKE -6416,105,108,110,97,109,110,58,32,101,120,46,68,82,49,58
185 POKE -6401,88,88,46,88,32,58,6,3,245,120,50,92,255,241,201
190 POKE -6386,241,195,148,229,126,35,229,38,0,13,10,60,82,69,84
195 POKE -6371,62,61,32,110,123,115,116,97,32,114,97,100,46,32,60
200 POKE -6356,46,62,61,32,66,114,121,116,46,13,10,10,0,0,0
205 POKE -6341,0,0,0,0,0,0,0,0,0,0,0,0,0
210 Z=CALL(58880)