start tok64 d64-n5HXgI
1 POKE53272,21:POKE53280,5:POKE53281,5
2 PRINT"{clear}{down*3}{right}{white}{cm @*38}
3 PRINT"{right}{reverse on} the commodore 64 videotape register. "
4 PRINT"{black}{down}{right}{cm @*23}
5 PRINT"{black}{right}{reverse on}{space*2}^insert this side!^{space*2}"
6 PRINT"{right}{reverse on} O{cm y*19}P "
7 PRINT"{right}{reverse on}{cm p}{cm h}{space*19}{cm n}{cm p}
8 PRINT"{right}{reverse on}{space*2}{cm i*4}{space*11}{cm i*4}{space*2}"
9 PRINT"{right}{reverse on} {cm d}{right*2}{reverse off}{gray}{cm d}{reverse on} {black} {light green} (c)1991 {black} {gray}{reverse off}{cm f}{black}{reverse on}{right*3}{cm f} "
10 PRINT"{right}{reverse on} {reverse off}{cm k}{right*2}{gray}{reverse on}{space*2}{black} {light green} mr.p of {black} {gray} {black}{right*3}{cm k} "
11 PRINT"{right}{reverse on} {cm c}{right}{gray}{right}{reverse off}{cm c}{reverse on} {black} {light green}{space*3}s.w{space*3}{black} {gray}{reverse off}{cm v}{black}{reverse on}{right*3}{cm v} "
12 PRINT"{right}{reverse on}{space*2}{reverse off}{cm i*4}{reverse on}{space*11}{reverse off}{cm i*4}{reverse on}{space*2}"
13 PRINT"{right}{reverse on}{space*23}"
14 PRINT"{right}{reverse on}{space*23}"
15 PRINT"{down*7}{white} press any key to run the register {>*4}{home}
16 POKE198,.:WAIT198,1:POKE198,.
17 PRINT"{light green}{home}{down*2}load"CHR$(34)"vr"CHR$(34)",8{home}";
18 POKE631,13:POKE632,82:POKE633,213:POKE634,13:POKE198,4
stop tok64
(bastext 1.0)