Compucolor.org – Virtual Media

Listing of file='VLIST.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'

30000 REM LIST VARIABLES IN THE ORDER THAT THEY APPEAR
30005 REM V1 IS THE START OF VARIABLES
30010 V1= PEEK (32982)+ PEEK (32983)* 256
30015 W1= PEEK (V1)
30020 W2= PEEK (V1+ 1)
30025 IF W1= 128THEN W3= 36
30030 IF W1> 175AND W1< 219THEN W1= W1- 128:W3= 36
30035 IF W2> 47AND W1< 91THEN PRINT CHR$ (W2);
30040 IF W1> 47AND W1< 91THEN PRINT CHR$ (W1);
30045 IF W3= 36THEN PRINT CHR$ (36)
30050 IF W3= 0THEN PRINT
30055 W3= 0
30060 V1= V1+ 6:REM JUMP TO NEXT VARIABLE
30065 REM V2 IS END OF VARIABLES
30070 V2= PEEK (32984)+ PEEK (32985)* 256
30075 IF V1< V2THEN 30015
30080 END