Compucolor.org – Virtual Media

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

10 REM    WRIITEN BY  ALAN HAIGHT
20 REM                20990 VALLEY GREEN DR. APT. 721
30 REM                CUPERTINO,   CA.   95014
40 REM
50 REM    TO END THIS PROGRAM WHILE RUNNING HIT THE ZERO KEY.
60 REM
70 PLOT 12:PRINT :PRINT :PRINT :PLOT 3,0,0,6,2,15
80 A= PEEK (35505):IF A= 34THEN 100
90 PLOT 27,4:PRINT "LOAD HAMER5.PRG 8AAC":PLOT 27,27
100 POKE 33283,177:POKE 33284,138
110 PRINT "ENTER A SPEED BETWEEN 0 - 255 PLEASE ";:INPUT X
120 PLOT 12
130 Y= CALL (X)
140 END