DataMuseum.dk

top - download

    Length: 2432 (0x980)
    Types: TextFile
    Names: »MENU.BAS«

└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
    └─ ⟦this⟧ »MENU.BAS« 

TextFile

10 CLEAR 600
20 PRINT CHR$(27);"E";
30 GOSUB 1890
40 ON ERROR GOTO 190
50 INPUT "FILENAME";P$
60 INPUT"WOULD YOU LIKE A LISTING OF THE FILE(Y OR N)";AN$
70 IF AN$<>"Y" THEN 150
75 PRINT CHR$(27);"E"
80 REM FILE IS READ SEQUENTIALLY
90 OPEN "I",1,P$
100 IF EOF(1) THEN 140
110 LINE INPUT #1,A$
120 PRINT A$
130 GOTO 100
140 CLOSE #1
150 PRINT:INPUT"WOULD YOU LIKE TO RUN THIS PROGRAM(Y OR N)";AN$
160 IF AN$<>"Y" THEN 20
170 RUN P$
180 END
190 PRINT:PRINT"SORRY - WRONG FILE"
200 INPUT"DO YOU WANT TO TRY AGAIN(Y OR N)";AN$
210 IF AN$ = "Y" THEN 20
910 PRINT CHR$(27);"E"
920 FOR J = 1 TO 6 
930   PRINT SPACE$(80)
940 NEXT J
950 PRINT" BBBBB      AAAA      SSSSS    IIIIII     CCCCC               8888      0000 "
960 PRINT" B    B    A    A    S           II      C                   8    8    0    0"
970 PRINT" BBBBB     AAAAAA    SSSSSS      II      C         ******     8888     0    0"
980 PRINT" B    B    A    A         S      II      C                   8    8    0    0"
990 PRINT" BBBBB     A    A    SSSSS     IIIIII     CCCCC               8888      0000"
1000 FOR J = 1 TO 8
1010   PRINT
1020 NEXT J
1030 INPUT "(continue)";A$
1040 FOR J =1 TO 20
1050   PRINT
1060 NEXT J
1080 GOTO 10
1890 PRINT:PRINT SPC(30);"BASIC MENU":PRINT:PRINT
1895 PRINT "FILENAME"
1897 PRINT "INTRO -- BASIC-80 introduction"
2000 PRINT "PORT -- the ability to do port input and output"
2010 PRINT "MEMORY -- direct memory access"
2020 PRINT "NUMBER -- the four Basic-80 variable types"
2030 PRINT "CHRSTR -- some of the many character manipulation functions"
2040 PRINT "ASCII -- PRINT statements and FOR loops"
2050 PRINT "PLOT.DTA -- graphic capability of Basic-80"
2060 PRINT "SEQ.IO -- sequential file I/O example"
2070 PRINT "PAY -- a payroll file possibility"
2080 PRINT "RAND.IO -- random file I/O example"
2090 PRINT "BOOK.KEP -- a complex book keeping example"
2100 PRINT "LINREG -- a Basic program that uses linear regression "
2110 PRINT "PLOTX -- user defined plot program"
2120 PRINT "STAT -- a short statistics program"
2130 PRINT "AMAZE -- a dazzling display of the ease of Basic-80
2140 PRINT "HORSE.RCE -- welcome to the race track"
2150 PRINT "REVRSE -- a reverse strategy game"
2155 PRINT "LIFE -- algorithm for social existence"
2160 PRINT "MMIND -- are you a master mind?"
2170 RETURN
«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»