10 A=1
15 PRINT"[147]"
20 FORI=1TO6
30 READM$(I)
40 PRINTTAB(10)M$(I)
50 NEXT
60 GOSUB100
70 PRINT"[147]SIE WAEHLTEN PUNKT"A
80 END:REM HIER KOENNTE DANN VERZWEIGUNG ERFOLGEN
90 DATAPUNKT 1,PUNKT 2,PUNKT 3,PUNKT 4,PUNKT 5,PUNKT 6
100 REM *******************************
105 REM HIER BEGINNT DIE AUSWAHLROUTINE
110 POKE214,A+4:POKE211,10:SYS58640:PRINT""M$(A)
120 GETX$:IFX$=""THEN120
130 IFX$=CHR$(13)THENRETURN
140 IFX$=""THEN180
150 POKE214,A+4:POKE211,10:SYS58640:PRINTM$(A)
160 A=A-1:IFA<1THENA=1
170 GOTO110
180 POKE214,A+4:POKE211,10:SYS58640:PRINTM$(A)
190 A=A+1:IFA>6THENA=6
200 GOTO110