1 ' List Variables 2 ' By Michael Gledhill 3 ' Amstrad Action September 1988 5 CLS:LOCATE 1,2:PEN 1:PRINT "Welcome back, chummy!! This BASIC proggy does the poking for the machine code proggy that'll list the BASIC variables." 6 PRINT:PEN 3:PRINT "INTERESTING FACTS:When someone types RUN, all BASIC variables are reset, BUT ARE NOT ERASED FROM THE MEMORY..." 7 PRINT "When someone types in a load of rubbish (ie fdjddd),the computer thinks that fdjddd is a variable." 8 PRINT 10 FOR n%=&A000 TO &A0CA:READ a$ 20 POKE n%,VAL("&"+a$):NEXT:o%=40 25 CALL &A000 26 PRINT "Use |VAR to list the variables." 30 DATA 21,09,a0,01,0d,a0,c3,d1,bc,00 31 DATA 00,00,00,12,a0,c3,46,a0,56,41 32 DATA d2,00,52,65,61,6c,00,49,6e,74 33 DATA 65,67,65,72,00,53,74,72,69,6e 34 DATA 67,00,0d,0a,20,20,56,61,72,69 35 DATA 61,62,6c,65,73,3a,0a,00,11,2a 36 DATA a0,1a,b7,c8,cd,5a,bb,13,18,f7 37 DATA cd,3a,a0,21,70,01,5e,23,56,2b 38 DATA 7a,b3,28,03,19,18,f5,23,23,23 39 DATA 23,7e,b7,c8,47,cb,bf,cd,5a,bb 40 DATA 23,cb,78,28,f2,4e,06,05,3e,2e 41 DATA cd,5a,bb,10,fb,79,fe,01,20,0c 42 DATA 11,1b,a0,cd,3d,a0,11,05,00,19 43 DATA 18,2a,fe,04,20,0c,11,16,a0,cd 44 DATA 3d,a0,11,08,00,19,18,1a,fe,02 45 DATA 20,0c,11,23,a0,cd,3d,a0,11,06 46 DATA 00,19,18,0a,3e,11,cd,5a,bb,3e 47 DATA 0b,cd,5a,bb,e5,cd,78,bb,7d,fe 48 DATA 19,cc,18,bb,26,0d,cd,75,bb,3e 49 DATA 0a,cd,5a,bb,e1,2b,7e,23,b7,ca 50 DATA 5b,a0,c9