home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh39a.d64 / device.gen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  865b  |  47 lines
  1. 10 DIMDE$(20)
  2. 20 RESTORE
  3. 30 Z=0
  4. 40 READDE$(Z):IFDE$(Z)="*"GOTO100
  5. 50 Z=Z+1:GOTO40
  6. 100 POKE53272,23
  7. 110 PRINTCHR$(147)CHR$(14)CHR$(8);
  8. 120 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  9. 130 PRINT" [197]INGABEGERAET FESTLEGEN"
  10. 140 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  11. 150 PRINT"A) [212]ASTATUR"
  12. 160 PRINT"B) [202]OYSTICK"
  13. 170 PRINT"C) [205]AUS 1351"
  14. 180 REM PRINT""
  15. 190 REM PRINT""
  16. 200 REM PRINT""
  17. 210 REM PRINT""
  18. 220 REM PRINT""
  19. 230 PRINT"X) [197]XIT"
  20. 300 POKE198,0:WAIT198,1
  21. 310 GETA$:IFA$="X"THENEND
  22. 320 IFA$<"A"ORA$>"C"GOTO300
  23. 330 DE=ASC(A$)-65
  24. 340 POKE1265+DE*80,122
  25. 500 OPEN15,8,15
  26. 510 PRINT#15,"S:GE4"
  27. 520 GOSUB10000
  28. 530 PRINT#15,"C:GE4=GE."+DE$(DE)
  29. 540 GOSUB10000
  30. 550 :
  31. 560 PRINT#15,"S:GP[202]"
  32. 570 GOSUB10000
  33. 580 PRINT#15,"C:GP[202]=GP[202]."+DE$(DE)
  34. 590 GOSUB10000
  35. 600 CLOSE15:GOTO100
  36. 10000 INPUT#15,A,A$,B,C
  37. 10010 IFA<10THENRETURN
  38. 10020 PRINT"";
  39. 10030 PRINTA;A$;B;C;
  40. 10040 POKE198,0:WAIT198,1:POKE198,0
  41. 10050 FORI=1984TO2023:POKEI,32:NEXT
  42. 10060 RETURN
  43. 50000 DATA "TASTATUR"
  44. 50010 DATA "JOYSTICK"
  45. 50020 DATA "MAUS 1351"
  46. 50999 DATA "*"
  47.