diff --git a/source/STARTUP b/source/STARTUP new file mode 100644 index 0000000..906975a --- /dev/null +++ b/source/STARTUP @@ -0,0 +1,17 @@ +10 D$ = CHR$ (4) +20 P$ = "/PROZAP/" +30 PRINT D$"PREFIX";P$ +40 B$ = "BLOCK.CONVERT" +50 M$ = "MONITOR.UTILITY" +60 Z$ = "PROZAP" +100 TEXT : HOME : INVERSE : FOR I = 1 TO 41: PRINT " ";: NEXT : HTAB 40: PRINT " ";: HTAB 11: NORMAL +110 PRINT "PROZAP DRIVER MENU"; +120 INVERSE : HTAB 40: PRINT " ";: HTAB 40: FOR I = 1 TO 41: PRINT " ";: NEXT : NORMAL : PRINT +130 PRINT "PREFIX = ";P$: PRINT +140 PRINT "FUNCTION [B] ";B$: HTAB 11: PRINT "[M] ";M$: HTAB 11: PRINT"[Z] ";Z$: PRINT : HTAB 15: INVERSE : PRINT " SELECT ": NORMAL +150 VTAB PEEK (37): HTAB 12: GET F$: PRINT F$ +160 IF F$ = "B" THEN DA$ = B$ +170 IF F$ = "M" THEN DA$ = M$ +180 IF F$ = "Z" THEN DA$ = Z$ +190 IF DA$ = "" THEN PRINT "GOODBYE.": END +200 PRINT D$"-";DA$