Page:NBS Technical Note 11176 (1983) (IAutilityprogramsf1176dick).djvu/31

This page has been proofread, but needs to be validated.

Listing 2. Candy Apple variable listing.

******************************
*      CANDY APPLE           *
*                            *
*  -->TABLE OF YARIABLES<--  *
*                            *
******************************

A$ - ANSWER STRING--ALSO USED TO ENTER HERSHEY X COORDINATE
1010 1010 1010 1010 1020 1120 1150 1200 1200 1200 1200 1200 2010 
2010 2010 2010 2020 4050 4050 4050 4050 4060 5030 5030 5030 5125 
5125 5170 5170 5170 5170 5180 5250 5250 5260 5320 5320 5220 5320
5320 5330 5340 5350 5340 5370 5380 5410 5420 5430 5430 5430 5430
5440 5450 9010

B$ - STRING USED TO ENTER HERSHEY Y COORDINATE
1330 1330 1330 1330 1330

BELLS - CHR$(7) SOUNDS SPEAKER
30 80 90 120 150 1010 1040 1090 1190 1210 1230 1290 1210 1220
1340 1370 1430 1450 2000 2030 2040 3040 3130 3150 3200 3220 4050 
5030 50460 5640 5130 5170 5190 5180 5250 5390 5430 4000 9010
10000

C - NUMERICAL CHOICE INPUT
120 130 130 140 180 1110 3040 3050 3050 3050 3080 3090 3100
3140

D$ - CHR$(4) DOS CONTROL
50 2050 2060 2070 2080 2120 7040 7050 7100 9000

D% - DESTINATION ADDRESS FOR MEMORY MOVE
11000 11010 11010

DH% - DESTINATION HIGH BYTE
11010 11010 11020

DI - DISK DRIVE FOR INPUT
80 80 80 7010 7040 9000

DL% - DESTINATION LOW BYTE
11010 11020

DO - DISK DRIVE FOR OUTPUT
90 90 90 2000 2040 2040 2040 2050

DX - INCREMENTAL X
5240 5280 5280 5290 5290 5340 6060 6070 6100 6120 6130 6130 6150
6160

DY - INCREMENTAL Y
5240 5270 5270 5300 5300 5340 6110 6130 6320 6150 6160

EF - EDIT FLAG 0= NO EDIT  1=EDIT UNDERWAY

22