Liren Large Software Subsidy 13/13.iso/p/p029/xl.img/DOSXX.ARJ/CC.BAS

GW-BASIC | 1980-01-01 | 640 b | 10 lines

1  KEY OFF:CLS
5  LOCATE 3,1 :PRINT "                        <0xB5!>VARPTR <0xCB!>SOUND ERRBSAVE  NOTWENDBEEPTO.STEP<0xB5!>THENCALL.SOUNDCOLORBSAVELOADRANDOMIZEPOINTCLS^BLOAD<UNK! {00FC}>MOTORAND"
10  LOCATE 5,1:PRINT "            WHILESAVEERRBSAVEMERGERENUMSTEPIMPSOUND<UNK! {00FA}>MERGE+KEYPOINT DOS <0xB5!>SOUNDNOTWENDBEEPTOUSINGLOADWHILEOPTIONBLOAD<UNK! {00FC}>MOTORAND ,STEP<0xB5!>THENCALLSCREENERRPSETVARPTR.LOCATEWHILELOAD<0xE4!>KEY<STRING$BLOADOPENTHENSTEP<0xB5!>THENCALL     "
20  PRINT "        <0xB4!>RENUM<0xCB!>THENBLOAD<UNK! {00FC}>MOTORANDSPC(ERLLOADLINESOUNDCOLORBSAVELOADRANDOMIZEPOINTCLS^BLOAD<UNK! {00FC}>MOTORAND,MERGERENUMSTRING$OPTION<0xB5!>LOADSOUND<UNK! {00FA}>LOCATE<0xB5!>STEPLINELOCATERANDOMIZENOTBLOADNOTUSRRANDOMIZEINSTRSTRING$<UNK! {00F7}>SPC(AUTOBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDWEND'USING<UNK! {00F7}>,THENRESUME                  RANDOMIZE<UNK! {FDB1}>SAVEERRBSAVE<0xB5!>SOUNDFNERRORSTEPLINE,STEPTROFFTHEN<UNK! {00FB}>SOUNDPOINTTAB(AUTOSOUND<UNK! {00FA}>OPTION<UNK! {00FC}>OPENBLOAD<0xB5!>SOUNDMOTOR<0xCB!>MERGE<0xE2!>LOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>,LOCATERANDOMIZENOTBLOADLOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}><0xB4!><UNK! {00F8}>CLS<0xB4!>LINEORSTRING$<UNK! {00FA}>."
25  LOCATE 9,1:PRINT "________________________________________________________________________________"
30  LOCATE 10,32:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>STEPERLLOCATESAVEUSINGNOTWEND<0xCB!><0xB5!>ERASE4 ;LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
31  B$=INKEY$:IF B$=" " THEN CHAIN "c0",ALL ELSE IF B$="r" OR B$="R" THEN 35 ELSE 31
35  CHAIN "ama1",ALL
37  END