Create STARTUP

Initial Commit
This commit is contained in:
Apple Pugetsound Program Library Exchange (A.P.P.L.E.) 2020-11-09 21:55:03 +09:00 committed by GitHub
parent 76378443ca
commit 6a1414c937
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

17
source/STARTUP Normal file
View File

@ -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$