MANAGER BASpI@@I!@ãI@@I!@@X8 =================================================) M O V I E - M A N A G E R2 (C) 6/87 by Peter Hoepfner & Detlef Gunkel)( 1/88 Update by Peter Hoepfner(2 2/88 Update by Detlef Gunkel8<=================================================F  P|DISBO Z 7d ()! n"Movie.bin", x   1fil""file""ex""file"" ," M O V I E - H A U P T M E N U E"6 , ();" 1987 by P. Hoepfner & D. Gunkel ,z ,z , #" <1> Einzelne Bilder laden")" <2> Einzelne Bilder abspeichern""" <3> Diskette formatieren"*" <4> Daten auf Diskette speichern"&" <5> Daten von Diskette laden"&" <6> Film vorwaerts abspielen"." <7> Film in beide Richtungen spielen"%"" <8> Einzelnes Bild anzeigen"$," <9> Komplettkopie erzeugen"6" Programm beenden"@J" Waehlen Sie ! "TC "" T^ "1"  h "2" $ r "3" l | "4"    "5"   "6"    "7" \  "8" F  "9"  + "E" "e"   T  8================================================= Bilder laden% "Namen der Dateien : ";nam nam""   ' ,"Startbild (0-31): ", s' ,"Anzahl (1-32): ", a  $& bil s s a0nu( bil)4:filefily(nu,(nu))exD file,N|SCREEN.OU, bilXb8l=================================================v- Diskette im Spezialformat formatieren|FASTFORMA8=================================================6 Bilder als Daten abspeichern auf Spezialformat  |FASTSAV8=================================================+Bilder als Daten von Diskette laden   |FASTLOA8 ================================================= * Film vorwaerts abspielen4 > H C""|FORWARR8\=================================================,f Film vorwaerts rueckwaerts abspielenp z $ C""|FORWAR|BACKWAR 8================================================= Programm beenden   8=================================================! Unterprogramm Mode setzen& " Bildschirmmodus (0,1,2) : "C ""  "1"   "2"   "0"   8$=================================================. Bilder speichern89B ,"Name der zu speichernden Bilder : ",namL nam"" B V '` ,"Startbild (0-31): ", s'j ,"Anzahl (1-32) : ", a t $~ bil s s a|SCREEN.I, bilnu( bil)4filefily(nu,(nu))ex file, ,,@8=================================================/ Komplettkopie der Demodiskette erzeugen("Diskette in A und Taste druecken"zC z"" |FASTFORMA  |FASTSAV|("movie.bin", ,,2"manager.bas"<8F=================================================#P Ein einzelnes Bild anzeigenZ0d" Welche Bildnummer (0-31): ", bn n x|SCREEN.I, bnwC w"" 7================================================ Dateinamen aufbereiten*filu(nam,t(nam,"."))5exy(nam,(nam)t(nam,".")) pI@@I!@ãI@@I!@@X