100 REM START TELEGRAFIDATABAS
110 REM COPYRIGHT SM5JX G\RAN SM5HMN GERRY
120 ONERRORGOTO 430
130 OPEN "DR1:DD1.DAT" ASFILE 1%
140 CLOSE 1%
150 REM 
160 ; CHR$(12)
170 ; CUR(0,4)"T E L E G R A F I D A T A B A S "
180 ; CUR(1,4)"*******************************"
190 ; TAB(4)"SM5JX  -ABC 80 32K RAM-  SM5HMN"
200 ; CUR(4,4)"1  TELEGRAFIS[NDNING  (Paris)"
210 ; CUR(6,4)"2  BIBLIOTEKHANTERING"
220 ; CUR(8,4)"3  INSKRIVNING NY TEXT"
230 ; CUR(10,4)"4  EDITERING AV TEXT"
240 ; CUR(12,4)"5  SEKTORKONTROLL"
250 ; CUR(14,4)"6  INITIERING RAMSA"
260 ; CUR(16,4)"7  INITIERING RYTMER"
270 ; CUR(18,4)"8  INITIERING AV DATASKIVA"
280 ; CUR(20,4)"9  SLUT P] K\RNING"
290 ; CUR(22,4)"V[LJ 1-9 "; : GET C$
300 IF C$>"9" OR C$<"1" THEN 160
310 C%=VAL(C$)
320 ON C% GOTO 330,350,360,370,380,390,400,410,420
330 ; CHR$(12)"TGF PROGRAMMET LADDAS ! !"
340 OUT 57,3 : CHAIN "ASCTGF"
350 CHAIN "SNABBLEK"
360 CHAIN "SKRIV"
370 CHAIN "EDITERA"
380 CHAIN "S\K"
390 CHAIN "RAMSA"
400 CHAIN "RYTM"
410 CHAIN "INIT"
420 CHAIN "INFO"
430 ONERRORGOTO 0
440 CLOSE 1% : ; CHR$(12)"S[TT I DATASKIVAN I DRIVE 1 !!!"
450 ; "TRYCK RETURN" : GET C$ : GOTO 100