VIC Game Loader

In the June issue of COMPUTE!, two recreational programs were presented for the VIC-20, "Pest" and "Olympiad." Both of these programs require 8K expansion and several POKEs before loading. It is quite easy to forget these POKEs and also very inconvenient when you just want to be able to load and run the program. Because of this, I wrote the following routine. It does all the necessary POKEing and then loads either Pest or Olympiad. You can choose by hitting either the P or the O key.

Shawn K. Smith

5 PRINT" {CLR} {DOWN} {3 SPACES} {RVS} O {OFF} L
YMPIAD {4 SPACES} {RVS} P {OFF} EST"  		: rem  141
7 GETA $ : IFA$ < > "O" AND A$ < > "P"THEN7
						: rem  99
10 PRINT " {CLR} {3 DOWN} POKE 43, 1 : POKE 44, 32 :
POKE 8192, 0 : " : PRINT : PRINT : Q$ = CHR$(34)
						: rem 83
15 IFA$ = "P"THENA$ = "{4 SPACES}" + Q$ + "OLYMPI
AD"+ Q$ + ",8{3 UP}":GOTO20 			: rem 169
17 A$=" {4SPACES} " + Q$ + "OLYMPIAD"+ Q$ + ",8
{3 UP}" 					: rem 226
20 PRINT "POKE36869, 240 : POKE36866, 150 : POKE
648, 30:PRINTCHR$(147)" 			: rem 187
30 POKE631, 13 : POKE632, 13 : POKE633, 63 : POKE6
34, 65 : POKE635, 36 : POKE636, 13 : POKE637, 13
						: rem 133
32 POKE198, 7 					: rem 153
35 PRINT" {HOME}" 				: rem 76