Micro$oft BASICA (short for "Advanced BASIC") is a simple disk-based BASIC interpreter written by Micro$oft for PC-DOS. BASICA allows use of the ROM-resident BASIC included with early models of IBM's PC while DOS is loaded (the ROM BASIC itself runs when nothing is loaded when booting) and adds functionality such as file access and storage of programs on disk. It does not run on non-IBM PCs and even on later IBM models, since those lack the requisite ROM BASIC.
Later versions : Qbasic and Visual Basic
which both inherited its syntax...
Later versions : Qbasic and Visual Basic
which both inherited its syntax...
50 'Basica
80 ' INITIALIZATION
90 '
100 DEFINT A-Z : GETC$=" " : GETW$=" " ' for speed!
110 DIM USQ.TABLE%(1,257), BUF$(128), OUTF$(127)
120 FILE$="" : SF%=0 : FO%=-1 : CSL%=0 : CSH%=0 : OD$=""
340
350 ' COMMON CODE
360 '
370 ' Common code, accessed with blank command line or begining of
380 ' non-CP/M versions.. (Interactive version)
390 '
400 SF%=-1
410 PRINT : PRINT "PCUSQNEW.BAS -- A SLOW But Sure BASIC Unsqueezer"
420 PRINT
430 PRINT "(Enter name of file to 'unsqueeze'. Use upper case ONLY.)"
440 INPUT "Name of squeezed file";FILE$ : ID$=""
450 PRINT : PRINT "(Enter 'O' for console output only)"
460 INPUT "Console output? (Y/N/O)";CO$
470 IF CO$="O" OR CO$="o" THEN FO%=0 : GOTO 520
480 IF CO$="N" OR CO$="n" THEN SF%=0
490 PRINT : PRINT "(Enter return only for current disk)"
500 INPUT "Output drive";OD$
510 IF LEN(OD$)=1 THEN OD$=OD$+":"
520 PRINT : PRINT "Unsqueezing ";ID$;FILE$;" --> ";
530 OPEN "R", 1, ID$+FILE$, 128
80 ' INITIALIZATION
90 '
100 DEFINT A-Z : GETC$=" " : GETW$=" " ' for speed!
110 DIM USQ.TABLE%(1,257), BUF$(128), OUTF$(127)
120 FILE$="" : SF%=0 : FO%=-1 : CSL%=0 : CSH%=0 : OD$=""
340
350 ' COMMON CODE
360 '
370 ' Common code, accessed with blank command line or begining of
380 ' non-CP/M versions.. (Interactive version)
390 '
400 SF%=-1
410 PRINT : PRINT "PCUSQNEW.BAS -- A SLOW But Sure BASIC Unsqueezer"
420 PRINT
430 PRINT "(Enter name of file to 'unsqueeze'. Use upper case ONLY.)"
440 INPUT "Name of squeezed file";FILE$ : ID$=""
450 PRINT : PRINT "(Enter 'O' for console output only)"
460 INPUT "Console output? (Y/N/O)";CO$
470 IF CO$="O" OR CO$="o" THEN FO%=0 : GOTO 520
480 IF CO$="N" OR CO$="n" THEN SF%=0
490 PRINT : PRINT "(Enter return only for current disk)"
500 INPUT "Output drive";OD$
510 IF LEN(OD$)=1 THEN OD$=OD$+":"
520 PRINT : PRINT "Unsqueezing ";ID$;FILE$;" --> ";
530 OPEN "R", 1, ID$+FILE$, 128
by jack_2000 November 27, 2005
Get the basica mug.by Killingomori June 13, 2021
Get the basicallyomori mug.Related Words
basiea
• basically
• basian
• BASIA
• Basicality
• basica
• basical
• basicallyidowrk
• basira
• basleal
A mix race between a black person and an Asian.
If its a chick, a must lay.
She will be tight as an asian but crazy like black!!!
If its a chick, a must lay.
She will be tight as an asian but crazy like black!!!
by Bud Wise December 8, 2004
Get the Basian mug.A stupid idiot who has a small penis
by __Elon__Musk__ October 8, 2018
Get the Basleal mug.Bami
Eater
Be Aware My Inker (=Bami) inker's are we, the people with no souls and bami is eating us alive.
Eater
Be Aware My Inker (=Bami) inker's are we, the people with no souls and bami is eating us alive.
by Bam August 15, 2003
Get the Bamieater mug.basically
dont say basicly BC you are wrong its basically! basically for example means "well guys BASICALLY im going to the store"
by HowtoBasicallygame March 5, 2017
Get the Basically mug.*in line at Starbucks*
Gab : Do you see that girl over there?
Shaan : What girl?
Gab : That white girl with her uggs boots and iphone!
Shaan : Yeaaaah ahaha she's so basical!
Gab : LMFAO you're right, I bet she is going to get one of those frappuchino drinks.
Gab : Do you see that girl over there?
Shaan : What girl?
Gab : That white girl with her uggs boots and iphone!
Shaan : Yeaaaah ahaha she's so basical!
Gab : LMFAO you're right, I bet she is going to get one of those frappuchino drinks.
by richarabs March 27, 2020
Get the basical mug.