Commodore VIC-20 - Page 153

Chapter 4 Advanced BASIC Programming 139
3868 RETURN
35813 REM ASK FOR A NUMERIC SELECTION
3510 REM RETURH SELECTION IN HM~
3520 REM NM~ MUST BE LESS THAH HI~ AHD MORE THAH LO~
35313 REM CALLING PROORAM MUST SET HI~,LO~ AHD QU$, THE QUESTION ASKED
3549 OOSUB 9880:REM POSITION THE CURSOR
3558 PRINT GlU$;
3560 OOSUE 51300 : REM GET A CHARACTER
3570 NM~mVAL(C$)
3588 IF NM%<LO% OR NM~)HI% THEN 3568
3598
PRINT C$;
36013 RETURN
5808 REM DISPLAY FLASHING CURSOR AND GET CHARACTER
5810 FOR 1=9 TO 60
5020 IF 1=0 THEN PRINT" III !II";
58313 IF 1=30 THEN PRINT" II" ,;
5840 OET C$: IF CS{)"" THE~1 1=60
51350 NEXT I
51360 IF CS="" THEN 5088
5870 RETURN
88813 REM INPUT SUBROUTINE
8828 SP$=" " : REM 22 SPACES
8848 (lOSUB 9800
8068 P~INT"DI";LEFT$(SP$,LN%);"!";
8078 (lOSUE 9809:REM POSITION THE CURSOR
8108 ecs=""
8110 GET CS: IF CS="" THEN 8110
81213 IF C$=CHRS( 13) THEt~ 8200
8139 IF C$=CHRS(2e) THEN 8160
8149 IF LEN(CCS)<LN~ THEN CC$=CCS+C$:PRINT C$;
81513 OOTO 8110
8168 IF cell="" THEH 8110
8178 PRINT"II. !II";
8175 REM DELETE CHARACTER FROM STRING ce$
8180 CCS=LEFT$(CCS,LEN(CC$)-l)
8190 OOTO 8110
8200 I'F LN%)LEN(CC$) THEH PRIHT LEFT$(SP$,LH~-LEH(CC$»;
8210 RETURN
9800 REM CURSOR POSITIONING SUBROUTHIE
9818R$ .. "~"
9929 C$." ••••••••••••••••••••• 1"
51830 PRINT"."; : REM MOVE CURSOR TO (8,0)
9040 PRINT LEFT$(R$,R~);LEFT$(C$,C~);
9050 RETURN
'500 OOSUB 5000:PRINT C$; : GOTO 9580
FIGURE 4·2. Name and address entry program (continued)