100 '*********************************** 110 '**                               ** 120 '**  D I P A R                    ** 130 '**                               ** 140 '**    direkte Parametereingabe   ** 150 '**    unter BASIC 1.0 / AMSDOS   ** 160 '**  z.B a$="neu":!REN,a$,"alt"   ** 170 '**                               ** 180 '**   (C) 1986 by                 ** 190 '**       Kai Meier               ** 200 '**       Hauptstrasse 25         ** 210 '**  2361-Bebensee                ** 220 '*********************************** 230 ' 240 MODE 1:DEFINT b-z 250 LOCATE 5,10:PRINT"  * * *  D i P a r * * *  " 260 ' 270 FOR z=&ABB0 TO &ABD2 280    READ a$:v=VAL("&"+a$):POKE z,v:s=s+v 290 NEXT 300 ' 310 IF s<>4503 THEN LOCATE 7,12:PRINT" -- DATA-Fehler !! --":END 320 ' 330 DATA FE,03,C0,7B,FE,0D,C0,21,C5,FE,3E,02 340 DATA 33,33,E3,44,4D,E3,ED,42,C2,97,CA,3D 350 DATA 28,05,21,9A,CE,18,ED,2A,C2,B0,C9 360 ' 370 POKE &AC04,195:POKE &AC05,&B0:POKE &AC06,&AB 380 ' 390 PRINT:PRINT TAB(28)CHR$(24)" "CHR$(1)CHR$(6)" "CHR$(24) 400 PRINT:PRINT:INPUT"Als BIN-File abspeichern (J/N) ";a$ 410 IF UPPER$(a$)<>"J"THEN 430 420 SAVE"DIPAR.mc",B,&ABB0,&57 430 MODE 2