* VIC SORT 2, (C) HANDIC BENELUX BV.rS$" ":"";:90:""S$:" VIC SORT 2 "S$:" COMMODORE APPROVED":" (C) 1981, HANDIC BV.":90I18000:I(MX(0)65:NM$(MX),SR$(MX),PL$(MX)-2,4:330IZI121:("",I(I8)8(I16)8,1)" ";::" ";:i"PLAATS TAPE EN REWIND"F$"TELEF":"WELKE FILE NAAM";F$: 1,1,0,F$1,Y:I1Y:1,NM$(I),SR$(I),PL$(I):70006(ST)0I@1J"TAPE LADEN (1)":"ZOEKEN (2)":"PRINT LIJST (3)"_^"SORTEREN (4)":"KLAAR (5)":"TAPE SAVEN (6)"ymA0:"WELK NUMMER";ArA250,6000,4030,3000,10000,1700w330F$"TELEF":"WELKE FILE NAAM";F$: 1,1,1,F$1,Y:I1Y:1,NM$(I):1,SR$(I):1,PL$(I):I:320E "SORTEREN OP:":"NAAM (1)":"PLAATS (2)"f "KEUZE ";A:A1A23000y "IK SORTEER" D1 D2D:J(YD):J0330 L1:HJ1 HY3510 L1L:H1H A1NM$(H)NM$(L)3590 A13560  SR$(H)SR$(L)3590^ T$NM$(H):NM$(H)NM$(L):NM$(L)T$:T$SR$(H):SR$(H)SR$(L):SR$(L)T$:T$PL$(H) PL$(H)PL$(L):PL$(L)T$:LLJ:L13590 HHJ:3550LL11:HH11:3530A1:"PRINTEN VANAF":"WELK NR.";AAY4030T$(16):IAY:2,I;T$"05"NM$(I);:700052,T$"30"SR$(I)T$"55"PL$(I)A@I:330tp"ZOEK NAAR";T$:L(T$):I1Y:6050:I:330D1(NM$(I))L1(NM$(I),D,L)T$7000:"RETURN VOOR VERVOLG";A$:D:X"NUMMER:"I:NM$(I):SR$(I) bPL$(I):"":'2: