German Magazine - Type-Ins - Computronic

tokra · Post by **tokra** » Mon Mar 07, 2011 5:29 pm

May/June, 1987:

http://www.tokra.de/vic/computronic/870506/870506.zip

TITAN (+3K): Build an energy-shield by taking parts from the shuttle to the basis to avoid the enemies missiles from starting. Avoid the killer satellite. You can also use the beam satellite on the right to escape.

tokra · Post by **tokra** » Mon Mar 07, 2011 5:36 pm

July/August, 1987:

http://www.tokra.de/vic/computronic/870708/870708.zip

RACE-DRIVER (unexpanded VIC): A racing-game. Increase speed by moving your joystick up. Switch gears by holding fire button and move the joystick in the direction noted on screen. Don't forget to pick up fuel.

tokra · Post by **tokra** » Sat Mar 12, 2011 8:43 am

September/October, 1987:

http://www.tokra.de/vic/computronic/870910/870910.zip

SAIGON (unexpanded VIC): Free the POWs. Shoot by holding joystick in a direction and pushing fire-button.

Post by **Jeff-20** » Sat Mar 12, 2011 1:26 pm

wow! the last two are really visually impressive!

tokra · Post by **tokra** » Mon Mar 14, 2011 6:44 pm

November/December, 1987:

http://www.tokra.de/vic/computronic/871112/871112.zip

COCONUTS (+3K): Make sure the falling coconuts don't fall into the pits. Much like the old Game&Watch games.

Note: This was the final Computronic issue. I will most probably take a break now with the type-ins, though I still have lots of more magazines to go through, like 64er, Happy Computer, Computer Kontakt and some older issues of Compute Mit, Homecomputer and CPU. I'm still hunting down a lot of the last two though...

orion70 · Post by **orion70** » Tue Mar 15, 2011 2:50 am

Tokra, I would like to thank you once again for your invaluable contribution. In another thread, I wrote that we're lacking new software releases for 2011, but I forgot these games

.

16KVIC20 · Post by **16KVIC20** » Tue Mar 15, 2011 11:24 am

Some of these games look great. Are they available on a tape? If not are the original Type Ins available? I would like to type some in at the very least and save them to tape.

tokra · Post by **tokra** » Tue Mar 15, 2011 11:38 am

Thanks for the kind words. You can just download those files, put them on a SD2IEC-device and load them on your VIC. From there you could also save them to tape. But using a SD-device is much more comfortable.

16KVIC20 · Post by **16KVIC20** » Tue Mar 15, 2011 12:36 pm

tokra wrote:Thanks for the kind words. You can just download those files, put them on a SD2IEC-device and load them on your VIC. From there you could also save them to tape. But using a SD-device is much more comfortable.

Unfortunately, I don't have such a device. Are the actual type ins available? No problem if not.

tokra · Post by **tokra** » Tue Mar 15, 2011 1:50 pm

The type-ins are available in the magazines, some of which can be found on Ebay.de from time to time. But you should do youself a favor and get an uIEC for $55 - this can also be used with any other Commodore home computer. Or just play in the emulator.

16KVIC20 · Post by **16KVIC20** » Tue Mar 15, 2011 2:55 pm

OK, do the programs respond to RUN/STOP, and or RUN/STOP RESTORE?

Do they load in one part? If I load by attaching tape image in Vice but type LOAD, rather than shift and RUN/STOP I should be able to list it and then copy and paste into a word document or even notepad?

I don't think I'll be getting the uIDE device. I once had something similar for my spectrums. It may sound strange, but it actually took the shine away from the 8 bit experience. One thing I am going to do is back all my tapes up though.

BTW I only asked as I am still getting a feel for this place. Over on World of Spectrum, they have a massive library of just about everything that has ever been published on the machine. The only things not included are games that are denied from being circulated (Ultimate and Codemasters spring to mind) and stuff that has been lost. I thought maybe something similar was available here.

orion70 · Post by **orion70** » Wed Mar 16, 2011 7:24 am

In theory, you could:

1- Open the game(s) with xVIC (VICE)
2- Create a new TAP image and attach it
3- Save the game(s) into this new TAP
4- Convert the TAP file to WAV via existing software tools

I've never tried this way, but nothing more than a tape recorder is needed..

16KVIC20 · Post by **16KVIC20** » Wed Mar 16, 2011 7:39 am

OK, thanks Orion70. I will give that a try for sure.

Is there any source of online scans of VIC 20 type ins? I've done some googling and couldn't find much.

orion70 · Post by **orion70** » Wed Mar 16, 2011 8:00 am

All the games are LISTable, so you can detokenize them with a suitable program (I use TOK64 for instance). I did a quick try with the last game posted, Coconuts, and here are the two listings:

COCONUTS-3K.PRG

Code: Select all

0 goto100
5 :
10 ****************
15 ****************
20 ***          ***
25 ** coconuts 1 **
30 ***----------***
35 ****************
40 ****************
45 :
50 ////////////////
55 /              /
60 / (c) 1987 by  /
65 /              /
70 / caesar-soft  /
75 /              /
80 / b. nyffeler  /
85 /              /
90 ////////////////
95 :
100 print"{clear}":poke36869,255:poke36879,25
105 poke52,28:poke56,28:poke788,194
110 print"{home}{red}{reverse on}{down*9}{right*4}bitte warten !"
115 goto120
116 -----------------
117 neue zeichensatz-
118 daten einlesen
119 -----------------
120 a=7167:x=14
130 a=a+1:readb:ifb=-1then160
135 forv=1to2:poke36878,x:poke36910,v:next:x=x-2:ifx=<1thenx=14
140 pokea,b
150 goto130
156 -----------------
157 buchstaben -
158 verdoppelung
159 -----------------
160 c=32768:forz=1to9
170 readd
180 forb=d*8+ctod*8+c+7
190 f=peek(b)
200 pokea,f:pokea+1,f
210 a=a+2
220 nextb,z
224 forw=atoa+15:reads:pokew,s:next:goto230
227 -----------------
228 titelbild
229 -----------------
230 print"{clear}":poke36879,8
240 print"{down*2}{red}{right*3}88888888888888{right*8}88888888888888"
250 print"{right*3}88{space*10}88{right*8}88 {white},.,.0246 {red}88{right*8}88 {yellow}-/-/1357 {red}88"
260 print"{right*3}88{space*10}88{right*8}88888888888888{right*8}88888888888888"
270 fora=7749to7762:gosub310:nexta
280 fora=7762to7916step22:gosub310:nexta
290 fora=7916to7903step-1:gosub310:nexta
300 fora=7903to7749step-22:gosub310:nexta:goto320
310 pokea+30720,13:return
320 print"{down*3}{right*7}{left}{cyan}+ {reverse on}{green}1987 {red}by"
330 print"{down}{right*5}{reverse on}{yellow}caesar-soft"
340 print"{down}{right*4}{reverse on}{white}bruno nyffeler":goto350
347 -----------------
348 titelmusik
349 -----------------
350 poke36878,15
360 reada:ifa=-1thengosub480:goto430
370 poke36876,a:poke36875,a
380 readb:forc=1tob*50:ifpeek(198)<>0thengosub480:goto430
390 nextc
400 poke36876,0
410 poke36875,0
420 goto350
427 -----------------
428 laderoutine
429 -----------------
430 print"{clear}":poke36869,240
440 print"{home}{down}{right*2}{blue}der computer laedt"
450 print"{down}{right}{red}den naechsten teil !"
460 print"{down*6}load"chr$(34)"coconuts2.prg"chr$(34)","peek(186)"{up*4}"
470 poke631,131:poke198,1:end
480 poke36876,0:poke36875,0
490 poke36878,15:return
491 :
492 -----------------
493 neue zeichsatz-
494 daten
495 -----------------
496 :
499 *** sonne ***
500 data255,255,255,255,255,255,255,255
510 data192,224,224,227,240,240,240,224
520 data0,0,0,255,0,0,0,0
530 data224,230,225,192,192,128,128,16
540 data0,0,128,112,14,0,0,0
550 data255,255,127,7,0,33,32,32
560 data254,248,224,2,1,1,128,128
570 data8,4,2,1,0,0,128,128
580 data0,0,0,0,128,64,48,0
590 data32,32,32,32,32,32,32,32
600 data128,128,64,64,64,64,32,0
610 data64,32,32,16,16,8,0,0
619 *** wolke ***
620 data0,0,0,0,0,12,27,42
630 data12,58,106,108,43,234,170,170
640 data48,104,112,184,172,172,168,176
650 data42,26,13,0,0,0,0,0
660 data170,174,169,168,172,104,16,0
670 data176,168,168,172,108,104,48,0
679 *** kokosnuss ***
680 data60,126,189,219,219,189,126,60
690 data60,90,231,255,255,231,90,60
699 *** grasland ***
700 data0,0,0,0,0,0,97,247
710 data0,0,0,0,0,0,144,253
720 data0,0,0,0,0,0,105,255
729 *** haus ***
730 data1,3,7,15,31,63,127,255
740 data140,204,236,252,252,252,254,255
750 data63,63,53,53,53,53,53,63
760 data252,252,252,252,252,252,252,252
770 data63,62,62,62,62,62,62,62
780 data252,172,172,172,172,172,172,172
789 *** mulde ***
790 data128,128,64,96,96,88,86,85
800 data1,1,3,5,5,13,117,245
808 *** mulde ***
809 *** mit deckel ***
810 data191,159,64,96,96,88,86,85
820 data0,0,0,0,0,0,0,0
830 data253,249,3,5,5,13,117,245
840 data0,0,0,0,0,0,0,0
848 *** score- ***
849 *** anzeige ***
850 data127,255,240,254,127,15,255,254
860 data127,255,240,240,240,240,255,127
870 data126,255,231,231,231,231,255,126
880 data254,255,231,231,255,254,238,231
890 data127,255,240,252,252,240,255,127
900 data0,24,24,0,0,24,24,0
908 *** hiscore- ***
909 *** anzeige ***
910 data119,119,119,127,127,119,119,119
920 data60,60,60,60,60,60,60,60
929 ***  (c)  ***
930 data60,66,153,161,161,153,66,60
940 data-1
948 *** doppelte ***
949 *** zeichen ***
950 data3,15,14,21,20,19,102,36,28
955 data255,255,255,255,255,255,0,0,0,0,255,255,255,255,255,255
958 *** daten ***
959 *** fuer musik ***
960 data195,1,207,1,215,1.5,207,.5,215,1,219,1,215,2,207,1,215,1,219,4,215,2,207,1,215
970 data1,215,1.5,207,.5,209,1,207,1,201,2,195,1,201,1,207,2,201,2,195,4,0,4
980 data195,1,207,1,215,1.5,207,.5,215,1,219,1,215,2,207,1,215,1,219,4,215,2,207,1,215
990 data1,215,1.5,207,.5,209,1,207,1,201,2,195,1,201,1,207,2,201,2,195,4,-1
1000 :
1001 :
1002 ***********
1003 * e n d e *
1004 *  d e s  *
1005 *listing's*
1006 ***********
1007 :
1008 :

COCONUTS2.PRG

Code: Select all

0 sys65019:dimd(50),k(50),f(50):goto100
5 :
10 ******************
15 ******************
20 ****          ****
25 *** coconuts 2 ***
30 ****          ****
35 ******************
40 ******************
45 :
50 ------------------
55 - copyright  by  -
60 ------------------
65 -  caesar-soft   -
70 ------------------
75 - bruno nyffeler -
80 ------------------
85 -written in 1987 -
90 ------------------
95 :
100 print"{clear}"chr$(8):poke36879,30
110 poke36869,255
115 gosub4000
120 print"{home}{blue}@@@@@@@@@@@@@@@@@@@@@@@@ {cyan}::: {red},.,.0246 {cyan}<<< {blue}@@";
130 print"@@ {green};;; {purple}-/-/1357 {green}=== {blue}@@@@@@@@@@@@@@@@@@@@@@@@"
140 print"{home}{down*4}{yellow}@@ab{down}{left*4}@@cd{down}{left*4}efgh{down}{left*4}ijk"
150 poke646,14
160 print"{up*2}{right*7}lmn{down}{left*3}opq{up*2}{right*6}lmn{down}{left*3}opq"
170 print"{home}{down*20}{blue}@>>>>>>>>>>>>>>>>>>>>@@{red}#$%&'({reverse on}{space*5}{reverse off}{blue}@{red})*({reverse on}{space*5}{reverse off}{blue}@@";
180 fora=8165to8184:pokea,63:pokea+30720,6:next
190 poke8185,0:poke38905,6
200 print"{home}{down*17}{black}tuv  tuv  tu  vtuvtuvt{green}@@@{right*2}@@@{right*2}@@{right*2}@@@@@@@@";
210 print"{green}@@@@@@@@@@@@@@@@@@@@@@"
300 poke646,12:print"{home}{down*16}{right*17}yz yz{down}{left*5}[\ [\"
310 print"{left*5}{up*3}{red}wx {blue}wx{down*2}{left*3}{black}t"
320 poke646,13:print"{home}{down*18}{right*3}]^{right*3}]^{right*2}]^"
330 print"{home}"
340 l=15
350 print"{home}{down*10}{black}{right*5}{reverse on}{213}{192*10}{201}"
360 print"{reverse on}{right*5}{black}{221}press fire{221}{down}{left*12}{202}{192*10}{203}"
370 poke36876,225
380 fora=1to250:next
390 ifpeek(37137)=94orpeek(37137)=30then430
400 l=l-2.5:ifl<1thenl=15
410 poke36878,l:poke36876,0:fora=1to20:next
420 goto370
430 print"{home}{down*10}{right*5}{space*12}{down}{left*12}{space*12}{down}{left*12}";
440 print"{space*12}"
450 poke36876,0
460 f=2:gosub1200
465 le=1
500 poke37154,127:ff=(peek(37152)and128)+(peek(37151)and28):poke37154,255
510 ifff=140andf>1thengosub1000:f=f-1:gosub1200:sc=sc-1
520 ifff=28andf<3thengosub1000:f=f+1:gosub1200:sc=sc-1
522 forxx=1to225-(le*75):next
523 ifsc=<0thensc=0
524 ifsc>hithenhi=sc
525 ifsc>9999thensc=sc-10000:hi=9999:goto523
526 print"{home}{down*21}{right*7}{reverse on}{red}";sc;"{home}"
527 print"{home}{down*21}{right*16}{reverse on}{red}";hi;"{home}"
560 readr:ifr=-1then3500
570 ifr>5thent=r:r=1:u=1
575 ifr=-1thenrestore:goto560
580 fors=1tor:ifu=1then600
590 readt
600 u=0
610 poked(t),int(rnd(1)*2)+18
620 poked(t)+30720,0
630 k(t)=d(t)
640 poked(j(s)),32:poked(j(s+1)),32:gosub3000
650 ifd(t)>8055thengosub700
655 nexts
660 goto500
700 ifd(t)=8057andf<>1then1500
710 ifd(t)=8062andf<>2then1500
720 ifd(t)=8066andf<>3then1500
730 sc=sc+21
740 poke36878,15
750 poke36876,200
760 fora=15to0step-2.5
770 poke36878,a:next
780 poke36876,0:return
990 goto500
1000 poke646,13:print"{home}{down*18}{right*3}]^{right*3}]^{right*2}]^"
1010 return
1200 poke646,13
1210 iff=1thenprint"{home}{down*18}{right*3}_!"
1220 iff=2thenprint"{home}{down*18}{right*8}_!"
1230 iff=3thenprint"{home}{down*18}{right*12}_!"
1240 return
1500 nn=180
1510 fora=15to0step-.08
1520 poke36878,a:nn=nn-.25:poke36877,nn
1530 nexta
1540 poke36877,0
1550 v=(int(rnd(1)*2)+1)
1560 ifv=1then1620
1570 print"{home}{down*8}{right*4}{reverse on}{blue}{213}{192*12}{201}"
1580 print"{right*4}{reverse on}{blue}{221}take it easy{221}{right*8}{202}{201}{space*10}{213}{203}"
1590 print"{right*5}{reverse on}{blue}{221}game  over{221}{down}{left*12}{202}{192*10}{203}"
1600 wait37137,32,32
1610 sc=0:f=2:restore:goto100
1620 print"{home}{down*8}{reverse on}{red}{right*4}{213}{192*12}{201}"
1630 print"{reverse on}{red}{right*4}{221}keep smiling{221}{down}{left*14}{202}{201}{space*10}{213}{203}"
1640 print"{reverse on}{red}{right*5}{221}game  over{221}{down}{left*12}{202}{192*10}{203}"
1650 wait37137,32,32
1660 sc=0:f=2:restore:goto100
3000 j(s)=t:return
3500 le$=str$(le)
3510 u$=" level"+le$+" is completed "
3515 form=1to66
3520 u$=right$(u$,21)+left$(u$,1)
3525 fori=1to50:next
3530 print"{home}{down*9}{reverse on}";u$
3540 sc=sc+2
3550 print"{home}{down*21}{right*7}{reverse on}";sc;"{home}"
3560 poke36876,235
3570 forh=15to0step-2.5:poke36878,h:next
3580 nextm:poke36876,0
3590 le=le+1:restore
3595 ifle=4thenle=1
3597 print"{home}{down*9}{space*22}";
3598 gosub4000:goto500
3600 fora=1to1000:next:return
4000 fora=10to31
4010 readd(a)
4020 next
4030 fora=32to50
4040 readd(a)
4050 next
4100 return
4999 rem*daten fuer *        *  1. flug   *
5000 data7944,7967,7990,8035,8057,8035,7992,7971,7951,7952,7976,7999,8044,8066,8044
5010 data8001,7980,7960,7940,7941,7964,7965
5019 rem*daten fuer *        *  2. flug   *
5020 data7966,7946,7947,7971,7995,8040,8062,8040,7997,7977,7957,7958,7937,7938,7939
5030 data7940,7963,7964,7987
5499 rem* spieldatas *
5500 data10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,2,31,10,11,12
5510 data13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,2,30,32,2,31,33,34,35,36,37
5520 data38,39,40,41,42,43,44,45,46,47,48,2,49,10,2,50,11,12,13,2,14,10,2,15,11,2,16
5530 data12,2,17,13,2,18,14,2,19,15,2,20,16,2,21,17,2,22,18,2,23,19,2,24,20,2,25,21,2
5540 data26,22,2,27,23,2,28,24,2,29,25,2,30,26,2,31,27,2,28,33,2,29,34,2,30,35,2,31,36
5550 data37,38,39,40,41,42,43,44,45,46,47,2,48,10,2,49,11,2,50,12,13,14,15,16,17,18,19
5560 data20,21,22,23,24,25,26,27,28,29,30,31
5570 data10,11,12,2,13,33,2,14,34,2,15,35,3,16,36,10,3,17,37,11,3,18,38,12,3,19,39,13
5580 data3,20,40,14,3,21,41,15,3,22,42,16,3,23,43,17,3,24,44,18,3,25,45,19,3,26,46,20
5590 data3,27,47,21,3,28,48,22,3,29,49,23,3,30,50,24,3,31,32,25,3,10,33,26,3,11,34,27
5600 data3,12,35,28,3,13,36,29,3,14,37,30,3,15,38,31,2,16,39,2,17,40,2,18,41,2,19,42
5610 data2,20,43,2,21,44,2,22,45,2,23,46,2,24,47,2,25,48,2,26,49,2,27,50,28,29,30,31
5620 data10,11,12,2,13,10,2,14,11,2,15,12,3,15,13,10,3,16,14,11,3,17,15,12,3,18,16,13
5630 data3,19,17,14,4,20,17,15,33,4,21,18,16,34,4,22,19,17,35,4,23,20,18,37,4,24,21,19
5640 data38,4,25,22,20,39,4,26,23,21,40,4,27,24,22,41,4,28,25,23,42,4,29,26,24,43,4,30
5650 data27,25,44,4,31,28,26,45,4,31,29,27,46,4,31,30,28,47,4,10,31,29,48,4,11,31,30,49
5660 data4,12,31,31,50,13,14,15,16,17,18,19,2,20,33,2,21,34,2,22,35,2,23,36,2,24,37,2
5670 data25,38,2,26,39,2,27,40,2,28,41,2,29,40,2,30,41,2,31,42,2,10,43,2,11,44,2,12,45
5680 data2,13,46,2,14,47,2,15,48,2,16,49,2,17,50,18,19,20,21,22,23,24,25,26,27,28,29,30
5690 data31,-1

16KVIC20 · Post by **16KVIC20** » Wed Mar 16, 2011 12:52 pm

Thanks for that Orion70, that's great. Gives me a little project when my 3K RAM pack turns up, hopefully next week.

I may well be being a bit dim here, all that detokenise stuff, went straight over my head. Do you mean open it in VICE, and break into the program to list it?