10 '********************** 20 '*   SUPERFORM v1.0   * 30 '********************** 40 ' 50 DATA 01,0D,AF,21,09,AF,C3,D1,BC,FF,FF,FF,FF,18,AF,C3,= 2412 60 DATA 32,AF,C3,4D,AF,C3,57,AF,49,4E,49,54,49,41,4C,49,= 1724 70 DATA 53,C5,41,4D,53,44,4F,D3,53,55,50,45,52,46,4F,52,= 1493 80 DATA CD,00,DF,36,AF,C9,39,AF,07,CD,DD,C5,21,83,AF,11,= 2076 90 DATA 90,A8,01,16,00,ED,B0,3E,FF,32,A8,A8,C9,DF,51,AF,= 2131 100 DATA C9,54,AF,07,C3,DD,C5,DF,5B,AF,C9,5E,AF,07,21,99,= 2232 110 DATA AF,11,00,00,01,A1,2A,C5,D5,E5,06,0A,72,23,23,23,= 1270 120 DATA 23,10,F9,E1,D1,C1,C5,D5,E5,CD,52,C6,E1,D1,14,C1,= 2698 130 DATA 10,E5,C9,28,00,03,07,00,D6,00,3F,00,A0,00,10,00,= 949 140 DATA 00,00,F1,0A,10,1E,E5,02,04,00,00,A1,02,00,00,A6,= 861 150 DATA 02,00,00,A2,02,00,00,A7,02,00,00,A3,02,00,00,A8,= 668 160 DATA 02,00,00,A4,02,00,00,A9,02,00,00,A5,02,00,00,AA,= 676 170 DATA 02,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,= 2 180 MODE 2:PRINT"Superform v1.0":PRINT"written by Mike Behrendt" 190 PRINT 200 zeile = 10 : schritt = 1 210 adr = &AF00 : last = &AFCF 220 FOR i=1 TO 16 230     READ byte$ 240     POKE adr,VAL("&"+byte$) 250     sum = sum + PEEK(adr) 260     adr = adr + 1 270 NEXT 280 READ checksum$ : checksum = VAL(MID$(checksum$,3)) 290 IF sum <> checksum THEN PRINT "Fehler in Zeile";zeile 300 IF adr < last THEN sum = 0 : zeile = zeile + schritt : GOTO 220 310 SAVE"superf.bin",b,&AF00,&C1,&0 320 PRINT"Installed.":PRINT 330 PRINT"Kommandos:" 340 PRINT"ùAMSDOS    = schaltet auf AMSDOS um" 350 PRINT"ùINITIALISE= schaltet auf Superformat um" 360 PRINT"ùSUPFORM   = Formatiert Diskette im Superformat" 370 CALL &AF00:PRINT 380 NEW