scene.org File Archive

File download

<root>­/­parties­/­2024­/­vccc24­/­christmas_challenge/pararam_amstradcpc_basic_1k_vc3-2024.zip

File size:
65 405 bytes (63.87K)
File date:
2024-12-29 14:13:04
Download count:
all-time: 0

Preview

  • code.png 14.51K
  • screenshot.png 50.74K
  • vccc2024.bas 1.00K
  • vccc2024.dsk 199.75K
  • vccc2024.txt 408B

file_id.diz

100 INK 1,25:INK 0,9:BORDER 9:MODE 0
200 LOCATE 9,2
300 PRINT "\o/"
400 LOCATE 1,3
500 GOSUB 10000
600 FOR i=0 TO 7:LOCATE 1,i+4:GOSUB 20000:NEXT
700 LOCATE 1,12:GOSUB 10000
800 FOR i=0 TO 7:LOCATE 1,i+13:GOSUB 20000:NEXT
900 LOCATE 1,21:GOSUB 10000
1000 GOTO 1000
9999 END
10000 PRINT "+"+STRING$(8,"-")+"+"+STRING$(8,"-")+"+"
10100 RETURN
20000 PRINT "+";STRING$(8," ");"+";STRING$(8," ");"+"
20100 RETURN