N PROGRAMM: * PROTECT * (c) D.WINKEL '90 ========= X1128Z:X :]2_:^2`:_2N:`2W:a2Xͯ:b2_:c2`:d2N:\2W2Xͼ:e2^:\2F:\2^:f2F LISTSCHUTZ (c) D.WINKEL AM SEE 4 BERLINGERODE 5 6 0 1( A$" Maximal nur 8 Zeichen bitte!"LC$" Bitte Anweisung beachten!"{:" Das Programm 'PROTECT' schafft einen"(" gewissen Schutz Ihrer BASIC-Programme."::2" Geben Sie nun ein:"<" ------------------"F:" Namen Ihres BASIC-Programms:";N$P(N$)1703Z(N$)8A$:70MdI10431053:I,32:IUnZ1kxI1045I(N$)1B$(N$,Z,1):B(B$)I,B:ZZ1I:N$"":" Ihren Namen bitte :";N$(N$)1160(N$)8A$:160 I10591066:I,32:IZ1)I1059I(N$)1BB$(N$,Z,1):B(B$)QI,B:ZZ1^I:N$"":" (c) im Jahre z.B. 90 :";N$(N$)1(N$)1:C$:250(N$)2:C$:250I10691070:I,32: I"Z1,I10691070 6B$(N$,Z,1):B(B$)@I,B:ZZ1#JIUT:::" Laden Sie nun Ihr BASIC-Programm!":^" Geben Sie anschliessend CALL1168":h" im Direkt-Mode ein, und saven Sie Ihr":r" Programm wie ueblich!":::|32);">ENTER<" E$:E$(13)390 10,400t-Mode ein, und saven Sie Ihr":r" Programm wie ueblich!":::|32);">ENTER<" E$:E$(13)39