Listing of file='TRAM.BAS;01' on disk='vmedia/ccug_14b-sector.ccvf'
0 IF PEEK (32940)= 155AND PEEK (32941)= 142THEN 10000 10 POKE 32940,155:POKE 32941,142:CLEAR 100 20 PLOT 27,4:PRINT "LOAD TRAM.XXX":PLOT 27,27 30 PLOT 12:PRINT "TRAM." 40 PRINT :PRINT " YOU ARE THE TRAM DRIVER. TRY TO PICK UP AS MANY" 50 PRINT "PASSENGERS AS POSSIBLE WITHOUT RUNNING INTO A BARRICADE (OR" 60 PRINT "YOURSELF). 62 PRINT " STEER THE TRAM WITH THE GRAY ARROW KEYS. YOU MAY USE" 64 PRINT "EITHER THE DOWN KEY OR THE HOME KEY TO GO DOWN." 70 PRINT :INPUT "PRESS 'ENTER' TO START: ";Z$ 10000 TM= 155 10001 TM= TM+ 142* 256 10002 POKE 33283,173 10003 POKE 33284,158 10005 PLOT 15 10010 POKE TM+ 1,0 10011 POKE TM+ 2,40:REM INVERSELY PROPORTIONAL TO SPEED 10020 POKE TM+ 3,9 10030 POKE TM+ 4,150:POKE TM+ 5,96 10040 POKE TM+ 6,130:POKE TM+ 7,96 10050 POKE TM+ 8,1 10055 PLOT 6,0,12,6,6,11,3,64,0 10056 IF Y= 1THEN 11000 10057 GOSUB 20000 10060 FOR I= 24706TO 24726STEP 2 10070 POKE I,1:POKE I+ 1,9 10080 NEXT I 10090 FOR I= 1TO 500:NEXT 11000 X= CALL (Y) 11010 PLOT 3,1,1:INPUT "PLAY AGAIN? ";Z$ 11020 IF LEFT$ (Z$,1)= "N"THEN PLOT 1 11030 Y= 1:GOTO 10000 20000 REM 20002 GOSUB 40000 20005 FOR I= 0TO 63 20020 POKE 28671- 2* I,63 20030 NEXT I 20040 FOR I= 1TO 30 20050 POKE 24577+ 128* I,63 20060 POKE 28671- 128* I,63 20070 NEXT I 20080 FOR I= 1TO 80:REM PLACE BARRIERS 20085 AD= INT (RND (1)* 1821)* 2+ 24903 20086 DA= 0 20090 POKE AD,63 20102 IF RND (1)> .75THEN 20110 20103 IF DA> 0THEN 20106 20104 DA= 2:IF RND (1)> .25THEN DA= - 2:IF RND (1)> .33THEN DA= 128:IF RND (1)> .5THEN DA= - 128 20106 AD= AD+ DA 20108 IF AD> 24902AND AD< 28672THEN 20090 20110 NEXT I 20120 GOSUB 30000 20130 RETURN 30000 FOR I= 1TO 50:REM PLACE PASSENGERS 30010 AD= INT (RND (1)* 1823)* 2+ 24902 30020 IF PEEK (AD+ 1)= 63THEN 30010 30025 POKE AD,80:POKE AD+ 1,67 30030 NEXT I 30040 RETURN 40000 FOR I= 0TO 35 40010 POKE 24577+ 2* I,63 40020 NEXT I 40030 FOR I= 35TO 63 40040 POKE 24705+ 2* I,63 40050 NEXT I 40060 FOR I= 0TO 25 40070 POKE 24833+ 2* I,63 40080 NEXT I:RETURN